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Datamat 


Gestion de fichiers 


est une gestion de fichier efficace et performante 
vous permettra de tenir à jour et d'exploiter tous 
vos fichiers (clients, club, collections, adresses, 
articles...) et vous serez étonne des possibilités de 
recherche de ce logiciel. De plus relie à vous 
pourrez reprendre les données de vos fichiers pour établir 
des calculs et des graphes ( par exemple : répartition 
géographique de vos clients, histogramme des ventes...) 
Relié à vous pourrez intégrer vos donnees pour 
realiser des mailings, courrier personnalisée etc... 


- Emploi extremement simple grâce à l'utilisation de menus 
- Traite tout type de donnees 

- Définition d'un masque de saisie personnalisé 

- 40 ou 80 caractères par ligne 

- Fonction de recopie d'écran sur imprimante 

- 50 champs par enregistrement 

- 512 caractères par enregistrement 

- Jusqu'à 4000 enregistrements par fichier 

- Définition des couleurs écran-bordure-aractere 

- Utilisation des fichiers avec (mailing, 
relances...) 

- Gestion complete des disquettes 

- Fonctionne avec un ou deux lecteurs de disquettes 

- Entièrement écrit en langage machine : extremement rapide 
- Adaptable à tout type d'imprimante 

- Jeu de caracteres français accentué complet (ou anglais) 
- Programme principal en memoire : pas d'attente de 
chargement 

- Manuel d'utilisation complet en français 

- Commercialisé à plusieurs milliers d'exemplaires dans le 
monde entier 

- Garantie et Service Micro Application 

Ce que vous permet notamment de faire 

- Rechercher les données en quelques secondes 

- Extraire les données selon un plusieurs critères 

- Trier les données selon différents criteres 

- Imprimer les données sous un format definissable 

- Impression d'étiquettes 

- fonctionne sur CPC 464,664 et 6128 et coute 450 
Francs tte 


Jextomat 


Jraltement de textes 


Un Traitement de Texte puissant et simple qui tire partie de 
toutes les capacités des CPC vous permettra 
d'écrire, archiver et modifier vos courriers, rapports, 

thèses, études. Vous pourrez intégrer dans vos documents 
des données extraites des fichiers 
réalises par 


et des calculs 


- Utilisation aisée à partir de menus 

- Jeu de caractères français complet accentué 

- Fonction de calcul en mode texte 

- Jusqu'à 16640 caractères 

- Possibilité de chainage de textes sur disquette 

- Fonctionne en mode 80 caractères avec accents 

- Travaille avec un ou deux lecteurs de disquettes 

- Choix des couleurs écran-<aractères-bordure 

- Mode Insertion-Gomme 

- Tabulation 

- Numérotation des pages 

- Impression proportionelle avec table d'espacements 
redéfinissable 

- Caractères de contrôle librement définissable 
(soulignage.double épaisseur.) 

- Lettre type avec insertion automatique (adresses par 
exemple) 

- Formatage des textes à l'ecran 

- Adaptation à tout type d'imprimante 

- Manuel détaillé et didactique 

- Fonctionne sur 464, 664 et 6128. 450 Francs TTC 
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MICRO APPLICATION 


43, rue Sainte Cecile 75009 PARIS 
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| Calcumat 


Jableur graphique 


Le logiciel plus plus ! 450 Francs TTC seulement 


est un logiciel intégrant un tableur, un logiciel 
de representation graphique .des outils de bureau ( 
calculatrice, bloc note, ciseaux et colle) et un 
intégrateur. Grâce au tableur vous réaliserez tous 10s 


calcul us forme de tableaux. Simultanément vous 


disposerez d'outils de bureaux indispensables comme la 
calculatrice ou les ciseaux pour déplacer une partie du 
tableau. Vous pourrez ensuite avec le logiciel graphique 
representer le resultat de vos calculs sous forme de 
diagrammes ! Enfin l'intégrateur vous permettra de 
transmettre à des données de pour le 
travailler" et ensuite de communiquer à les 
resultats obtenus pour éditer un rapport etc 


c'est vraiment 





Feuille de Calcul Complete de 1024 iignes sur 255 colonne 
Possibilté de nommer les cellules 
- Fonctions Trigonometriques 
Formattage des données 
- Selection des commandes par menu déroulant type MAC 
Recalcul automatique des cellules 
Largeur des colonnes deéfinissable à tout moment 
Tri Alphanumeérique des cellules 
LOGICIEL GRAPHIQUE INTEGRE 
Quatre Fenètre à l'ecran 
Graphismes en 2? et 3 Dimensions 
Histogramme 
Court 
Camemberts ou Fromage 
- Editeur de Texte 
OUTILS DE BI 
Calculatrice 
- Bloc Note 
Ciseaux et colle pour découper, modifier et coller la 
feuille de calcul 
INTEGRATEUR 
Liaisonde 


‘our commenter les diagramme 





AU disponible à tout moment 


pourrecupererdesdonne 
electionnee 


-Liaison de 1 pour intégrer lescalcu 


dans des rapport 
fonctionne sur CPC 464.664 et 6128 et coûte 45 
Francs tte 
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Pourquoi un numéro hors-série de CPC ? Tout simplement pour fêter 
ensemble notre premier anniversaire. 

Nous ne pouvons pas vous offrir chaque mois autant de logiciels 
que nous le voudrions, car il faut laisser une place à l'actualité et 
aux articles de fond, aussi, pour vous occuper à la veille des vacan- 
ces, nous avons réuni nos meilleurs utilitaires et jeux dans ce numéro. 
En cadeau, en plus de cette douzaine de listings, nous vous offrons 
une cassette avec un jeu ‘’Rally”, qui vous fera passer d'excellents 
moments devant l'écran, et un utilitaire “Moniteur” qui, nous le pen- 
sons, sera accueilli avec plaisir par tous les passionnés de langage 


machine. 









A vos claviers ! 


La Rédaction 












Une ligne téléphonique est à votre disposition, vous met- 
tant en contact direct avec la rédaction. Ceci est un ser- 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9h à 12h et de 14h à 17h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé :.ne 
dépensez pas inutilement votre argent ! 


Le numéro : 99.52.98. 1 1. 





SONNANE 
















Les programmes de la cassette ........ 6 
Cubeméléon ....................... 8 
MOUINA si uomnsoeemeN aan 
Domptez les interruptions ......................... are Mes SUCRE, 
RIDDVTB Sens sd ne be CO a Et 24 
Es: TannieA- SIMS Pt Le CR Rasa ae 25 





Ecriture en tailles diverses .......................4 4e see sesssoes 






Le Temple du Soleil : la solution .............................................. 40 


Verbes: forts alhds ns uno e au sa mn due nn mate ta ide ls als Kb 
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Comptour > TABDNONIQUE 55 ur ete Minas seau ees 
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RESCUE MISSION ……… 
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l’espace AMSTRAD 
le plus micro 


de Paris |... 


UTILITAIRES 

Multiplan (D) 6128-8256 ............ 499F 
D Base II (D) 6128-8256 ..… 790F 
Turbo Pascal (D) 6128-8256 740F 
Turbo Tutor (D) .......... 430F 
TO! Box: (D) 5 suis reuusse 740F 


Gestion Fichiers-Mailings 6128-8256 790F 








Textomat (D) 





Calcumat (D) … 450F 
Superpaint (D) ...... …… 895F 
Space Moving (C/D) ..…… 295/395F 
Dams Assembleur (C/D) ....…. 295/395F 


Autoformation Assembleur (C/D) 195/295F 



























































Comptabilité générale 8256 1650F Cours de Solfège (D) ...........…. 249F 
Datamat (D). ursatusss 450F 
PÉRIPHÉRIQUES 
Lecteur + contrôleur disquettes .... 1990F Crayon optique (C/D) synth. vocal 
Lecteur de disquettes FDI .......... 1590F français etre anarate 290/425F 
Tablette graphique Grafpad Il (C/D) 890F Technimusique “ 490F 
RS 232 (C) 8256 ................... 690F RS 232(C)....................... 590F 
Souris AMX' 05.402 690F Liaison Amstrad Minitel + soft ...... 390F 
Adaptateur péritel MP 2 (664)... 490F Serveur 8256 + Modem .…. 3800F 
Lecteur K7 + câble (664-6128) ... 390F Logiciel serveur + câbles 1500F 
BIBLIOGRAPHIE 
Le Basic de l'Amstrad (PS) .......... 120F Jeux d'aventure (id.) ............... 129F 
102 programmes CPC 464 (PSI)... 120F Bible du programmeur (id.) . .. 249F 
Super jeux Amstrad (PSI) . 120F Langage machine (id.) ..…. 129F 
Le livre du CPM (PSI) … 149F Graphisme et sons (id.) . 129F 
Trucs et astuces (Micro-Appl.) ..….…. 149F Peeks et Pokes (id.) ........... 4 99F 
Coût total Programmes Basic (Micro-Appl.) … 129F Livre du lecteur de disquettes 149F 
Produits TTC Apport | Mensua-| TEG du crédit Basic au bout des doigts id.) 149F Initiation D Base Il snsssssssssss … 250F 
compt. lités (2) Amstrad ouvre-toi (id.) ............. 99F Le livre du CPM - Micro Appl. 149F 
(1) avec assur. 
JEUX 
Eden Blues (C/D) ............. 140/220F Way of Exploding Fist (C) ........... 120F 
Fighter Pilot (C/D) … 99/149F Bruce Lee (C/D)........…. 120/195F 
CPC 464 monochrome ……….. Crafton et Xunk (C/D) 140/220F  Tyrann (C) 185F 
rs Sorcery Plus (C) ..... . 95/185F Bad Max (C) ....... ……. 199F 
Amélie Minuit (C/D) 140/220F  3D Voice Chess (C/D) 160/199F 
D, Macadam Bumper (C/D) . 160/240F Sold a Million (C/D)..… 120/180F 
8 SR Bataille pour Midway (C) ............ 140F Raid (C/D) .......…. 129/195F 
Lg ne som ss Bataille d'Angleterre (C/D) .….. "140/220F  Mandragore (C/D) 245/295F 
Imprimante DU 2000 Mission Delta (C/D) .. 120/195F La Geste d'Artillac (C/D). 290/350F 
Imprimante Epson Lx 80 Rallye Il (C/D) … 160/265F  L'Affaire Vera Cruz (C/D) 160/195F 
Imprimante Okimate EE Empire (C/D):..:..:.442 195/265F Théâtre Europe (C/D) 140/220F 
LE Meurtre à grande vitesse (C/D) 160/229F Match Point (C/D) ..…. 125/195F 
Football(C}i2.16r5e208ecesontess 120F Scrabble (C/D) ..….............. 245/295F 


(2) TEG : Taux en vigueur au 111.85 
Offres valables sous réserve de stock disponible. 








(1) Prix au 01.01.86 sous réserve de baisses éventuelles. 
Du lundi au samedi de 9 h 30 à 19h. 
l’espace AMSTRAD 50 rue de Richelieu 75001 Paris - Tél. : (1) 42.96.93.95 - Mét. : Palais-Royal 


S Hi 0 P le plus micro de Paris 251, boulevard Raspail 75014 Paris - Tél. : (1) 43.21.54.45 - Mét. : Raspail 
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BON DE COMMANDE à adresser à VIDEOSHOP, Département VPC, BP 105, 75749 Paris Cedex 15 












































Nom Je vous adresse la commande suivante : 
Prénom 
Adresse 
Code Postal Ville 
Téléphone 





Montant total TTC 
Au comptant 








Je désire recevoir une documentation sur : 














À crédit* 














Je choisis la formule de règlement : 
Je vous joins mon règlement par : 
Chèque bancaire CCP D Contre remboursement (100 F en sus). 
* (Joindre : photocopie carte d'identité, RIB, dernière fiche de paie, quittance EDF.) 
































Joindre 3 timbres à 2,20 F pour frais d'envoi. 
Je possède un micro ordinateur : 
































À ATTITUDES 86003 





CA CAS, 


LES PROGRAMMES DE 





SETTE 


MINI MONITEUR 


HEXA MONITHEX 


Christian FABERT 


sont en permanence affichées à l'écran. La syntaxe détaillée étant fournie 


C e logiciel est entièrement écrit en langage machine. Toutes les instructions 


après la demande spécifique de l'instruction. Il possède les commandes 


suivantes : 

V — INVERSION VIDEO 

(Papier blanc, écriture noire ou papier 
noir, écriture blanche). 

L — LISTE (DUMP MEMOIRE) 
Mémoire RAM — Z:LRAM 


La permutation étant assurée par la tou- 
che Z. 

Exemple 1 : dump de 256 octets sur 16 
colonnes. 


Syntaxe : L 2000 ENTER. 
Exemple 2 : dump de 128 octets sur 8 
colonnes. 


Syntaxe : L 2000,2080,8 ENTER 





En résumé 
départ>, <adresse fin>, <nombre 
colonnes > (1 à 16) 

Pour obtenir la suite du dump, faire L 
ENTER. 

Pour imprimer le dump, taper sur la tou- 
che |. 


: syntaxe L <adresse 


M — MODIFIE 


Permet l'entrée et la modification de 
codes hexa. Les codes doivent être 
entrés, séparés par une virgule (ou un 
espace). || est possible d'entrer 16 codes 
en une seule fois. Terminer par un point. 
Exemple : entrée de codes hexa à partir 
de l'adresse &2000. 

Syntaxe : M 2000 ENTER. 

L'adresse demandée est visualisée ainsi 
que son contenu, puis entrée des codes 
21, 12, 20, 11, 34, 2F, 01, OO, O0, C9, 
ENTER 


Mémoire ROM — Z:LROM Il est possible d'entrer une nouvelle 









COMMUNIQUEZ AVEC VOTRE |» 
AMSTRAD CPC 464 
664-6128 

Prix : 90 F + 9 F de port 


JOUEZ AVEC AMSTRAD 
Prix : 48 F + 4,80 F de port 


MIEUX PROGRAMMER 
SUR AMSTRAD 
Prix : 85 F + 8,50 F de port 


Editions SORACOM| 
E La Haie de Pan 
35170 BRUZ 


2 MIE 
7 UX 
Lace 


Cod Pool. 525 CON LS ee remet ess 
Ci-joint . ...... F en chèque bancaire, CCP, mandat* 
à l’ordre des éditions SORACOM. 


*Rayer les mentions inutiles. 


Luuvuuuuuuuee 


adresse en cours de frappe. 

Exemple : adresse début &2000 puis 
adresse &3000. 

Syntaxe : M 2000 21,00,30,11,10,40, 
C9,/3000 ENTER 

Adresse en cours +1 — ENTER 
Adresse en cours —1 — —ENTER 
Ilest possible de placer un point d'arrêt. 
Placer le code F7 (RST &30) à l'endroit 
où vous désirez un point d'arrêt. 
ATTENTION : Placer F7 toujours dans le 
programme principal (pas dans un sous- 
programme). 


T — TRANSFERT 


Déplace une zone mémoire. 

Exemple : déplacement d’une zone de 
&2000 à &3000 en &8000. 

Syntaxe : T 2000,3000,8000 


R — REMPLIR 


Exemple 1 : remplir la zone mémoire 
&2000 à &2100 de caractères O0. 
Syntaxe : R 2000,2100 ENTER. 
Exemple 2 : remplir la zone mémoire 
&8000 à &9000 de caractères 1B. 
Syntaxe : 8000,9000,1B 


H — MEMORY 


Exemple : entrée de codes en &2000 
Syntaxe : H 2000 ENTER. Memory sera 
de &1FFF. 


our 


RA 








Emmanuel PACAUD 








E — EXECUTE 


Exemple exécution programme à 
l'adresse &8000 
Syntaxe : E 8000 ENTER 


S — SAUVEGARDE 


Permet la sauvegarde d'une zone 
mémoire sur support disque (D) ou cas- 
sette (K). 


Exemple programme TOTO début 
&8000, fin &AO0O0 sur support disque. 
Syntaxe : S D 8000,A000 ENTER entrer 
titre TOTO, puis confirmer par O/N. 

Si adresse auto-run, utiliser la syntaxe 
suivante : 

S D 8000,A000,8000 ENTER entrée du 
titre puis confirmation. 


CTRL Q — RETOUR AU BASIC 


RE 


R € 
des uti isnteurs d'Anstrad 
PRESENTS 


Loading.... 


from 


MEGASOFTS 


from 
Line Los) à ei 


© 1984: Emmanuel Pacaud 





LLY 


h, que c’est beau un réveillon ! On mange bien, et... on boit de trop. 
Conséquence : on prend l'autoroute à l'envers, et c’est là que les ennuis 
commencent, d'autant plus qu'il y a plein de plaques de verglas et que la 
longueur de la voie rétrécit à vue d'œil. Faut-il que je sois bourré ! Bonne chance 
quand même ! Avant de boire votre dernier verre, lisez le mode d'emploi en début 


de programme. 


P.S. : Dans la boîte à gants, vous trouverez une paire de touches de curseur mar- 
quées — et —. Elles vous seront bien utiles pour vous guider l'engin. 


A 
Il 1 


oi 























Koflerion 


CUBEMELEON 


Georges GOUMENT 


jeu de réflexion’’ ? 


Avec CUBEMELEON découvrez une nouvelle façon de jouer. D'un emploi 
extrêmement simple, ce programme vous réserve néanmoins quelques 


VW: n’avez pas encore pratiqué de ‘’ 


petites surprises quant à sa résolution. 


Vous obtiendrez des dizaines de parties différentes, dont les solutions seront plus 
ou moins complexes, grâce aux deux niveaux et aux quatre options de jeu. 
J'espère vous faire partager ma passion pour cette nouvelle façon de se divertir. 


RAPPEL DES TOUCHES UTILISEES 


tl—— 

Déplacement de cube en cube dans le 
sens de la touche tapée. 

COPY 

Effectue une permutation de couleurs. 
A 

Annule une partie 

V 

Vérifie la couleur de chaque cube et 
compare avec le choix de l'ordinateur. 


VARIABLES UTILISEES 


F : 1 ou 2 Niveau de jeu choisi par l’uti- 
lisateur. 
Cette variable détermine l'affichage du 


nombre de cubes mis en jeu (4 ou 6) 
lignes 1310 à 1380, le choix de l'ordi- 
nateur lignes 1400 à 1620 et la mise en 
place des rangées de cubes (3 ou 5) 
lignes 1630 à 2160. 

F modifie également la préparation effec- 
tuée par l'ordinateur : nombre de permu- 
tations lignes 2170 à 2290. Choix des 
coordonnées lignes 2350 à 2750. 
OP:1à4 

La valeur de cette variable est tirée aléa- 
toirement par l'ordinateur. 


Cette option de jeu fixe le mode de per- . 


mutation des couleurs pour chacune des 
parties : lignes 2810 à 3140 et 4490 à 
4710. ; 


Les valeurs de F et OP figurent dans le 


tableau ‘‘FORCE"" à droite de l'écran : 1er 
chiffre niveau de jeu, 2e option. 

M : 5 à 35 

Lignes 2170 à 2290 : nombre de per- 
mutations à effectuer par l'ordinateur. 
P:1àM 

Mise en route du brouillage des cubes. 
Boucle FOR... NEXT, lignes 2300 à 
2750. Tirages aléatoires du cube de base 
pour chaque permutation. Fin de brouil- 
lage P = 60. 

A,B : PEN 

Fixe la couleur d'origine d'un cube. 
A1,B1 : PEN 

Modification des couleurs d’un cube 
selon OP. 

X,Y : 

Test couleur cube de base. XA,YA test 
couleur cube permuté. 

C.L : 

Coordonnées déplacement point blanc 
sur chaque cube. 

U,V : 

Coordonnées cube à permuter par rap- 
port au cube de base. 

CJ : 

Durée de la partie (nombre de coups 


jouables) déterminée par les variables F 


et M. 

SC : 

Score (nombre de coups joués). Affi- 
chage à gauche de l'écran, lignes 3890 
à 3970. Si SC=CJ-19, il reste 20 
coups à jouer, les divers affichages cli- 
gnotent. Si SC =CJ+1, la partie est per- 
due. 

Z : 

Couleur du cube choisi par l'ordinateur. 
Utilisée pour le contrôle des cubes après 
appui sur la touche <V>, lignes 5140 
à 5330. 


CSA. Software 


55, rue du 


33000 Bordeaux — 


Tél 56.96.35.23 Poste 31 


Importateur — Distributeur des programmes logiciels de la Sté PRIDE-UTILITES 


SYSTEME X {170 CAS. 205 F DISQ. 
Le SYSTEME X est un programme (HSX) d'extension à un système 


résidant qui apporte plus de 30 commandes supplémentaires à 
votre AMSTRAD. 


SPIRIT 

SPIRIT est un oufil pour transférer les vrais programmes sans en- 
tête de cassette sur disquette. || est conçu pour être utilisé avec 
TRANSMAT. Pour utiliser SPIRIT. il faut avoir une certaine connais- 
sance du code machine Z 80 et un utilitaire désassembleur. Com- 
pris avec SPIRIT, il y a les programmes d'interception de saut de 
bloc, LOADER 1 et LOADER 2 pour aider à charger les program- 
mes à partir de la disquette. 


+ 


RSX A 







TRANSMAT 


Permet le transfert facile sur disques de tous logiciels sur bande. Pour 
un système à disques AMSTRAD DDI-1. 

e Modes de fonctionnement automatiques ou non-automatiques + Lec: 
teur global d'en-tête de disque + Adjonction éventuelle de réadressage e 
Programmes faciles d'effacement ou de changement de nom. 
BOURSE D'INFORMATIONS TRANSMAT 

Informations complémentaires pour passer des programmes difficiles. 
Mise à jour régulièrs des £ premières éditions. 

Transmat Informations N° 1 - disponible - 





















ODD-JOB 
Un utilitaire complet sur disque contenant tous les programmes que 
vous attendiez : Un éditeur complet e Récupérer les programmes effa- 
cés e Cacher des programmes du menu + Un éditeur de secteur com- 
plet pour examiner et/ou modifier le contenu des fichiers en HEX ou en 
ASCII e Faire un plan de votre disque et localiser les fichiers sur le dis- 
que  Empêcher l'effacement involontaire des programmes + Un dupli. 
cateur de disque intelligent + Formater deux fois plus vite sur l'un ou 
l'autre drive Transférer les programmes  cassette/disquette 
° Augmenter la vitesse de votre drive jusqu'à 20% + Charger et lister les 
programmes en BASIC. 


Mel NL VECEUSE EE 










DRUETTE ELECTRIC STUDIO 


SYCLONE 2|CASSETTE D! PEN MARK I! 


Un ensemble RSX bande à bande qui apporte de 
nouvelles commandes ainsi que de NOMBREUSES 
POSSIBILITES pour votre CPC 464. 

e Sauvegarder vos précieux logiciels pour un charge- 
ment avec une économie de temps de 75% + Choix 
de sept vitesses de sauvegarde, 1 000 à 4 000 bauds 
e Pas besoin de SYCLONE pour le rechargement à 
grande vitesse e Lecteur global d'en-tête e Comman- 
des disponibles à partir du BASIC + Chargement et 
impression de programmes BASIC sauvegardés + 
Impression de vos bandes WELCOME. 


Nouveau modèle encore amélioré, 
1 pixel de précision ! Qualité 
professionnelle. Le stylo optique 
multifonctions. 





464 sur cassette nn 
464 et 664 en disquette 

(interface compris) _375F 
6128 en disquette 375F 








érie ‘BUG-BYTE” : Cassette Dogsbody __ 





Cassette Capt'n Kid 


BON DE COMMANDE 


45F 


SCRIPTORCSET 


Un élément essentiel pour les propriétaires d'impri- 
mante DMP:1. Six polices de caractères définissa- 
bles. Laissez faire votre DMP-1 sans extension. 

e Caractère à jambage inférieur + Futuriste © Itali. 
ques + Compatible avec AMSWORD + Ecriture liée « 
Caractères gros et gras + Programme de définition 
de caractères e Une finition professionnelle pour 
votre correspondance. 


COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part — Faites le total + frais de port (20 F pour 
achats inférieurs à 500 F) Franco pour achats supérieur à 500 F 


NOM ___ : z 


SIGNATURE 





ADRESSE 




















Mode de paiment : Ü chèque/ 


] mandat/ 











à : ESAT SOFTWARE, 55, rue du Tondu, 33000 Bordeaux 


contre-remboursement (prévoir 20 F de frais) — envoyer le tout 


1 1e LE F 


D ns 
bande à bande, grâce à ce programme simple, qui se 
charge pratiquement de tout même sans en-tête, et 
normalement d'un seul coup. 


F 16F 
ZEDIS DETTE DISQUETTE 


Un désassembleur et programme d'édition de code à 
la fois global et convivial. Indispensable pour le 
néophyte tout comme pour l'expert. 














TOMCAT 
TRANSMAT 
SCRIPTOR 
ZEDIS 

RSX SYCLONE 2 
SYSTEME X 
STYLO OPTIQUE 
ODD JOB 




















10 HHHHOHE DEEE DEEE DÉ DEEE DEEE DE DE DE DE DE DE DE DEEE EE 
… * 
30 


x: 

CUBEMELEON x 
40 * 
50 Auteur Georges GOUMENT * 
60 # 
70 AMSTRAD CPC 464 * 
30 + 
90 JMD HD HE DE HE DE HE DE DE DE DE DE DE DE JE DE DE DE DE DEEE DÉDE DEEE DEEE 


100 ? 

110 ’red{(finition lettres accentu(es 
1:0 ? 

130 MODE O:BORDER 13:FOR I=0 TO 
3 13:NEXT:PRINT CHR$S(22)+CHRS (1) 
140 DIM E$(3) 

150 SYMBOL AFTER 64 

160 SYMPOL 64,8&60,810,878,88C,8&7C,&CC, &7 
6 

170 KEY 1279, CHR#(64) 

180 SYMPBOL 123,86,88,83C,2866,87E, &60, &3C 
190 KEY 128, CHR#(1:3) 

200 SYMBOL 125,860,810,8&3C,&66, &7E, &60, & 
3C 

#10 KEY 14%, CHR$(125) 

ZE0 SYMBOL 9%,8&0,&0,8&3C,8&66,&60,8&3E,&8, & 
18 


15:INK I 


240 SYMEOL 94,8&18,824,&3C, &66,87E, &60, 83 

Ç 

#50 KEY 134,CHR#(94) 

60 ? 

#70 ’red{finition caractires du 
des cubes du jeu 

#80 ? 

#90 FOR I=144 TO 165 

300 READ S1,S%:,S3,S4,55,S64,S7,5S8 

310 SYMBOL 1,S1,S2,S53,S4,65,66,S7,S8 

320 NEXT I 

330 DATA &0,8&0,80,80,2&1F,83F,8&7F,&FF,&0, 

80, &0,&0,&FO,&F0,&F0,&F0, &0, &0, &0, &0, &10 

,=0,8&50, &A0,8&F0,&F0,&F0,2&F0,&E0,&C0,&80 

, 20,850, &A0, &50, &A0, &50,&A0, &40, &80, &0, & 

Q,&0,2&0,&0,2815,&ZA, 855 

340 DATA &0,8&0,&0,&0,&0,&50, &A0, &40, &0, & 

0,80,818,2818,&0,2&0, &0,&C0, &C0,&C0,&C0, &C 

0,&C0,8FF,&FF, 80, &0, &CO, &C0, &C0,&C0,&c0, 

&C0,80,8&0,8FF,&FF, &C0,&CO, &C0, &C0, &0,&0, 


titre et 


. &D, 8C0,&CO, &CO, &CO, &C0, &CO, &CO, CO, ECO, & 


CO, &CO, &CO, &CO 





12414 -HeorT% 
pu Hu qiit 


350 DATA 80, 80, &C0, &CO, &CO, &CO, &C0, &0, &F 
F,&FF,&CO,&C0,&C0,&CO,&FF,&FF, &0, &0, &CO, 
&C0, &CO, &C0, &CO, &CO, 80, 80, &CO, &CO, &CO, &C 
0,80,&0,&F8,8F8,&C0, &C0,&CO, &CO,&FF,&FF, 
80, 80, &CO,&C0,&F3,8F3,8F3,8F3, &CC, &CC, &C 
C, &CO, &CO, &CO, &CO, &CO 

360 DATA &0,&0, &CO, &CO, &FO, &FO, &FO, &FO, & 
CC, &CC,&C3, &C3, 8 C3, &C3, &CO, &CO 

370 E$(1)=CHR$(144)+CHR$(145)+CHRS(10)+C 
HRS(B)+CHR$(147)+CHR#(11) 

380 E$(Z)=CHR$(9)+CHR$(146)+CHR#(103+CHR 
$(B)+CHR$(B)+CHRS(143)+CHRE (148) +CHRS C1 1 
) 

390 E$(3)=CHR$(9)+CHR$S(149)+CHRS(150) 
400 FOR I=176 TO 19% 

410 READ 51,52,53,54,955,S6,957,58 

420 SYMBOL 1,51,S2,83,S4,95,56,67,S8 

430 NEXT I 

440 DATA &3F,87F,&0, &0,&30,&30,&30, 830, & 
FO, &FO, 830, &30, &30, &20, &20, 80, 830, &30, &:3 
0,830,83F,83F, 80, 80, &0, &30, &70, &30, &30, & 
30,820, 80,830,&70,830,&30, 830,830, &30, &3 
0,830, 830,830, &30, &30, 830, &20, 80, &3F,&7F 
,&0, 80,830, 830,830, &3C 

450 DATA 83F,87F, 80,80, 830,830, 83F,83F, & 
0,80,830,830,&3F, &3F, 80, &0, &FO, &FO, 830, & 
30, 830, 830, &20, 80, &FO, &FO, &30, 830, 820, &0 
,&0,80,830,870,83C,&3C, &C, &C, &C, &C, 833, & 
32,830,830, 830, 830,870, &0, &30,&70, 830, &3 
C,&C, EC, &F, &F 

460 DATA 833,833,8&30,&30,&30,&30,&20, 80, 
&FO,&FO, 830,830, &30, 830,830, 830, &4, 80, &:3 
0,830, &3F,&3F, &0, &0 

470 ? 
480 ? 
490 ? 
500 POKE &PR:90,100:CLS 

510 FOR Y=400 TO 374 STEP-1:PLOT O,Y:DRA 
W 640,Y,7:NEXT 

520 X=640 

530 FOR Y=373 TO 36B STEP-1 

540 X=X-1:PLOT O,Y 

550 DRAW X,Y,6:NEXT 

560 FOR I=1 TO 39 

570 READ V,UW,X,Y 

580 PEN W 

590 LOCATE X,Y 

600 PRINT CHR#(V) 

610 NEXT I 


prisentation du jeu 





620 DATA 192,1:1,2,192,25,2,1953,13,10,1 
,152:10,13,2,192,9,17.2,153,5,3,1,19%,3, 
4,1,153,2,6,1,153,10,13,1,153,9,18,1,153 
:15,20,1,154,1,1,1,194,2,593 141945 4,7, 4,1 
54,8,11,1,154,11,15,1,154,9,17,1,155,1,2 


CS 

630 DATA 156,3,4,2,155,4,8,2,155,8,12,%, 
155,10,14,2,155,11,16,2,156,193,10,2,156, 
9,18,%,156,15,20,2,157,1,2,1,1358,2,5,2%,1 
59,2,6,2,160,4,8,1,160,8,12,1,160,11,16, 
1,161,4,7,2,161,8,11,2,161,11,15,2,16#,1 
3,9,1,163,13,9,2,164,15,19,1,165,15,19,* 
640 FOR I=i TO 39 

650 READ V,W,X,Y 

660 PEN W 

670 LOCATE X,Y 

680 PRINT CHR#&(V) 

690 NEXT I 

700 DATA 176,10,1,1,177,10,2,1,178,10,1, 
2,179,10,2%,2,180,11,3,1,180,11,4,1,178,1 
1,3,2,181,11,4,2,183,9,5,1,177,9,6,1,184 
17%:52185,9,60,2,182,15,7,1,186,15,8,1,1 
92,15,7,2,179,15,8,2,187,5,9,1,180,5,10, 
1,188,5,9,2,181,5,10,Z 

710 DATA 18#,14,11,1,186,14,1#,1,19%,14, 
11,2,179,14,17,27,180,1,193,1,178,1,13,2,1 
79,1,14,2,182,3,15,1,186,3,16,1,192%,3,135 
52179,3,16,2,176,2,17,1,191,2,18,1,178, 
#,17,%,181,2,18,:,189,4,19,1,180,4,*0,1, 
190,4,19,2,181,4,:0,2 

720 PEN 6:LOCATE 3,7:PRINT "JEU DE REÉFLE 
XION":LOCATE 6,9:PRINT "Z niveaux":LOCA 
TE 1,24:PRINT "(c) Georges GOUMENT" 


730 LOCATE 5,14:PEN 10:PRINT E$(1) :EOCAT 


E 5,14:PEN 1:PRINT E$(%) 

740 LOCATE 7,14:PEN 11:PRINT E$(1):LOCAT 

E 7,14:PEN 3:PRINT E$(x) 

750 LOCATE 9,14:PEN 9:PRINT E$(1):LOCATE 

9,14:PEN Z:PRINT E$(z) 

760 LOCATE 11,14:PEN 15:PRINT Eg(1):LOCA 

TE 11,14:PEN 4:PRINT E$(Z) 

770 LOCATE 13,14:PEN S:PRINT E$g(1) :LOCAT 

E 13,14:PEN 13:PRINT E$(Zx) Ê 

780 LOCATE 15,14:PEN 14:PRINT E$g(1):LOCA 

TE 16,14:PEN B:PRINT CHR#(146) :LOCATE 15 

315:PRINT CHR#(143)+CHR$(148) 

790 BORDER O:INK 1,2:INK 10,11:INK 3,3:1 

NK 11,17:INK Z,6:INK 9,16:INK 4,9:INK 15 

)192:INK 13,1Z:INK 5,24: INK 8,15:INK 14,27 

S:INK 6,Z6:INK 7,0 

600 GOSUE 5440 

810 

6820 mode d’emploi et r)gles du jeu 

830 ? 

840 MODE 1:BRORDER 13:FOR 1=0 TO 

13: NEXT 

850 ORIGIN 1,1:DRAW 1,399,1:DRAW 639,399 

5 1:DRAW 639,1,1:DRAW 1,1,1 

860 PLOT 5,5:DRAW 5,394,3:DRAW 634,394,3 

:DRAW 634,5,3:DRAW 5,5,3 

870 PLOT 9,9:DRAW 9,390,2:DRAW 630,390,2 

:DRAW 630,9,2:DRAW 9,9,2 

680 WINDOW #1,2,39,2,23:PAPER #1,0:CLS # 

1 

890 PEN #1,1:PRINT #1:PRINT #1," 

MODE D’EMPLOI'":PEN #1,2Z:PRINT #1," 

ÉÉLIILLIIIL III NU 

900 PRINT H#1:PRINT H1:PEN #1,3:PRINT #1, 


15:INK I 








"Vous choisirez votre niveau de jeu d}sq 
ue les r)gles du jeu seront termin(es":P 
RINT #1:PEN #1,2:PRINT #1,"FORCE 1:":PEN 
#1,3:PRINT #1," dibutant 15 cubes 4 co 
uleurs'":PRINT #1 
910 PEN #1,2:PRINT #1,"FORCE Z:":PEN #1, 
S:PRINT #1," champion 2Z5 cubes 6 couleu 
rs"sPRINT #1 
920 PRINT #1:PEN #1,2:PRINT #1," chaqu 
e niveau comporte 4 options":PRINT #1," 
de milange des couleurs'":PRINT #1 
PEN #1,J3:PRINT #1,"l’ordinateur en tire 
une au sort avant de pr{parer la 
partie" 
930 GOSUR 1100 
940 PEN #1,1:PRINT #1:PRINT #1," 
: PREPARATION" :PEN #1,Z:PRINT #1," 
EEE DEEE PRINT #1: PRINT #1 


950 PEN #1,3:PRINT #1," L’ordinateu 
r choisi un des cubesdisponibles 1?’ affi 
che dans le bas de l1’{(cran et pr{ipare le 
jeu. '":PRINT #1 
960 PRINT #1,"Apr}s avoir dispos( ce cub 
e sur 3 ou Srangs il effectue un m{ilange 
. "#:PRINT #1:PRINT #1i,'"Le choix des cubes 
, la proc(dure et lenombre de brouillage 
s sont al{atoires." 
970 PRINT #1:PEN #1,2:PRINT #1," Vous n 
e pouvez pas intervenir durantla pr{ipara 
tion de la partie." 
80 GOSUR 1100 
990 PEN #1,1:PRINT #1:PRINT #1," 
REGLES DU JEU":PEN #1,2:PRINT #1," 
DEEE DEEE EEE EE PRINT #1 
1000 PEN #1,3:PRINT #1,"Vous commencez à 
Jouer lorsqu'un pointblanc apparait sur 
la face avant du cube central. '":PRINT 
#1 
1010 PEN #1,Z:PRINT #1," Ce point indi 
que le cube servant debase à une permuta 
tion de couleurs.":PRINT #1:PEN #1,3:PRI 
NT #1," Servez vous des touches fl{ich(ies 
pourpasser d’un cube à l’autre. ":PRINT 
#1 
100 PEN #1,Z2:PRINT #1,'"TOUCHE COPY'32:PE 
NO #1,3:PRINT #1," Permute les couleurs": 
PEN #1,Z:PRINT #1,"TOUCHE <Aï"3:PEN #1,3 
PRINT #1,"  Annule la partie" 
1030 PEN #1,2:PRINT #1:PRINT #1," 

TOUCHE  £VS"s PEN #1,S3:PRINT #1," 
L'ordinateur virifie la couleur de voscu 
bes avant de vous d(clarer vainqueur" 
1040 GOSUR 1100 
1050 PEN #1,2:PRINT #1:PRINT #1," POUR 
GAGNER UNE PARTIE VOUS DEVEZ'"':PRINT #1: 
PRINT #1," REDONNER À VOS CUBES UNE CO 
ULEUR":PRINT #1:PRINT #1," IDENTIQUE À C 
ELLE QUE L’ORDINATEUR A" 

1060 PRINT #1:PRINT #1," CHOISIE À 
U DERBUT DU JEU":PRINT #1:PRINT #1:PRINT 
#1," BONNE CHANCE !":PRINT #Hi:. 
PRINT #1: 
1070 PEN #1,3:PRINT #1,"Quand les divers 
affichages clignotentil vous reste #0 c 
oups a jouer,.":PRINT #1:PRINT #1,"L’opti 
on de m{lange des couleurs est valable 
durant toute une nartie,Q vousde la trou 





ver ! 
1080 GOSUR 1100 
1090 GOTO 1:30 
1100 INK 1,2#4:INK Z,3:INK 3,0 
1110 LOCATE 2,24: PEN 1:PRINT 
rx une touche" 
11:0 WHILE INKEY#="":WEND 
1130 CLS #H#I1:INK 1,13:INK 2?,13:INK 3,13 
1140 RETURN 
1150? 
1160 
1170 
1180 
1190 
1200 
1210 
1220 ? 
1230 RANDOMIZE TIME:MODE O:INK 1,0:PEN 1 
PRINT CHR&(ZEZ)+CHRS (1) :OP=INT(RND+#4) +1: 
PRINT "NIVEAU CHOISI 7" 
1240 AS=INKEYS:IF Ag$g="" THEN 12%40 
1250 IF A$="1" THEN F=1:GOTO 1270 
1260 IF A$<:"2" THEN 1:40 ELSE F=z 
1270 CLS:FOR I=1i TO 15:INK I,13:NEXT:FOR 
Y=158 TO 174:PLOT 19%,Ys:DRAW 447,Y,12Z:N 
EXT:PLOT 192,156:DRAW 449,156,7:DRAW 449 
5174,7:PEN 7:LOCATE 7,15:PRINT "couleurs 
"sFOR Y=384 TO 400:PLOT 160,Y:DRAW 477, 
Y,I1Z:NEXT:PLOT 160,382:DRAW 479,382, 7:DR 
AW 479,400, 7 
1280 WINDOW #1,1,5,20,23:PAPER #1,10:CLS 
#1:WINDOW #2,16,:0,:0,23:PAPER #2, 10:CLS 
#2: AS=STRINGS(S, CHRÉ(143)): PEN 6:LOCATE 
1,Z2O:PRINT AS:LOCATE 16,%*0:PRINT A$ 
1290 LOCATE 1,ZO:PEN 1:PRINT "SCORE":LOC 
ATE 16,20:PEN 1:PRINT "FORCE'":PEN 12:L0C 
ATE 2,22: PRINT "OO0":LOCATE 16,%2: PRINT 
F:LOCATE 18,Z2Z:PRINT "-":LOCATE 18,22:PR 
INT OP 
1300 LOCATE 6,1:PEN 7:PRINT "cubem(l{(on" 
:PLOT 0,3Z:DRAW 16%,32Z,7:DRAW 162,94,7:FP 
LOT dns 3Z:DRAW 6939,3%#,7:DRAW 639,94,7 
1310 
130 ? 


"Appuyez su 


choix du niveau de jeu: F 1 ou ? 


tirage option milange: OP 1 à 4 


dessin du jeu 


placement de 4 ou 6 cubes Seiui 
niveau de jeu (F) 

1330 ? 

19340 Y=16:1F F=1 THEN 1370 

1350 X=5 

1360 LOCATE X,Y:PEN 11:PRINT E$(1):LOCAT 
E X,Y:PEN G:PRINT E$(Z2):LOCATE X,Y+1:PEN 

7:PRINT E$(3) 

1970 LOCATE 7,Y:PEN 9:PRINT E$(1):PEN 2%: 
LOCATE 7,Y:PRINT E$(Z):LOCATE 7,Y+1:PEN 
7:PRINT E$(3) 

1380 LOCATE 9,VY:PEN 15:PRINT E$(1):LOCAT 
E 9,Y:PEN 4:PRINT E$(Z):LOCATE 9,Y+1:PEN 

7:PRINT Eg$(3) 

1390 LOCATE 11,Y:PEN 5S:PRINT E$(1):LOCAT 
E 11,Y:PEN 13:PRINT E$(2):LOCATE 11,Y+1: 
PEN 7:PRINT E$(3) 

1400 LOCATE 13,Y:PEN 10:PRINT E$(1):LOCA 
TE 193,Y:PEN 1:PRINT E$(%):LOCATE 13,Y+1: 
PEN 7:PRINT E$(3) 

1410 IF F=1 THEN 1450 ELSE LOCATE 15,Y:P 
EN 14: PRINT CHR$#(144)+CHR#&(145) :LOCATE 1 
6, Y+1: PRINT CHR#(147):LOCATE 16,Y:PEN 8: 
. PRINT CHR#(146) :LOCATE 15,Y+1:PRINT CHR# 
C143)+CHR$ (148) :LOCATE 15,Y+1:PEN 7:PRIN 





T E$(3) 
1420 ? 
1430 ? 
1440 ? 
1450 A4=0:INK 1,2: INK Z,6:INK 3,3:INK 4,9 
INK S,Z45: INK 6,26: INK 7,0:INK 8,15: INK 
9,16:INK 10,11:INK 11,17:INK 12,73 INK 13 
SL1E:INK 14,25:INK 15,19 
1460 ENV 1,1,15,1,1,0,110,135,-1,8 
1470 ENT 1,15,-5,6,5,15,5 
1480 SOUND 7,80,-1 1,1 
1490 ? 
1500 ’choix d’un cube par l’ordinateur 
1510 
15Z0 
1530 
1540: 
1550 
1560 A=INT(RND#6) +1 
1570 IF F=1 THEN 15390 
1580 IF THEN A= B= GOTO 1690 
1590 IF THEN :GOTO 14690 
1600 IF THEN dore 1690 
1610 IF THEN :GOTO 1690 
16€0 IF THEN :GOTO 1690 
1630 IF THEN 
1640 IF THEN 
1650 GOTO 1560 
1660 ? 
1670 ? 
1680 ” 
1690 FOR Y=78 TO oo Fer Y:DRAW 415, 
Y,1Z:NEXT:FOR Y=96 TO : PLOT 256,Y: DRA 
W 383,Y,12:NEXT:PLOT re 76:DRAW 417,76, 
7:DRAW 417,96,7:PLOT 385,96:DRAW 385, 11* 
7: PEN 7:LOCATE 9,19: PRINT" cube" :LOCATE 
8,20O:PRINT "choisi" 
1700 LOCATE 10,21:PEN PB:PRINT E$(1):LOCA 
TE 10,Z1:PEN A:PRINT E#(2zx) 
1710 LOCATE 10,ZYs3PEN 7:3PRINT E$(3) 
1720 
1730 


appel couleur 


5 
,0, 


niveau 1 —- 4 couleurs (F=1i) 


niveau 2? —- 6 couleurs (F=x) 


HOW NON OH ON HN 


mme Che 


1690 


TDIDDDDD 


affichage du cube choisi 


mise en place de 15 ou *#5 cubes 
selon variable F 

1740 ? 

1750 IF F=1 THEN 1860 

1760 FOR X=10 TO 18 STEP 

1770 LOCATE X,4:PEN A:PRINT CHR$#(143) 

170 LOCATE X,3:PEN B:PRINT CHR#(144) 

1790 LOCATE X+1,3:PRINT CHR#(145) 

1800 LOCATE X+1,4:PRINT CHR#(147) 

1810 LOCATE X+1,3:PEN A:PRINT CHR#(146) 

1820 LOCATE X+1,4:PRINT CHR#(148) 

1830 LOCATE X+1,4:PEN 7:PRINT CHR#(149) 

1840 NEXT X 

1850 LOCATE 20,4:PRINT CHR#(150) 

1860 FOR X=8 TO 16 STEP % 

1870 LOCATE X,G:PEN A:PRINT CHR$(143) 

1880 LOCATE X,5:PEN B:PRINT CHR$#(144) 

1890 LOCATE X+1,5:PRINT CHR#(145) 

1900 LOCATE X+1,6:PRINT CHR#(147) 

1910 LOCATE X+1,5:PEN A:PRINT CHR#(146) 

1920 LOCATE X+i,6:PRINT CHR#(148) 

1930 LOCATE X+1,6:PEN 7:PRINT CHR$(149) 

1940 NEXT X 

1950 LOCATE 18,6:PRINT CHR#&(150) 

1960 FOR X=é6 TO 14 STEP € 

1970 LOCATE X,B8:PEN 4:PRINT CHR#&(143) 

1980 LOCATE X,7:PEN B:PRINT CHR#(144) 





LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
NEXT X 
LOCATE 16,8:PRINT CHR#(130) 

FOR X=4 TO 12 STEP # 

LOCATE X,10:PEN A:PRINT CHR$#(143) 
LOCATE X,9:PEN B:PRINT CHR#&(144) 
LOCATE X+1,9:PRINT CHR$(145) 

LOCATE X+1,10:PRINT CHR#(147) 
LOCATE X+1,9:PEN A: PRINT CHR$#(146) 
LOCATE X+1,10:PRINT CHR$(148) 
LOCATE X+1,10:PEN 7:PRINT CHR$&(149) 
NEXT X 

LOCATE 14,10:PRINT CHR#(150) 

IF F=1i THEN 2300 

FOR X=2 TO 10 STEP 2% 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
NEXT X 


X+1,7:PRINT CHR$(145) 
X+1,B8:PRINT CHR#(147) 
X+1,7:PEN A:PRINT CHR#&(146) 
X+1,G:PRINT CHR$(148) 
X+1,8:PEN 7:PRINT CHR#&(149) 


X,1Z:PEN A:PRINT CHR#&(143) 
X,11:PEN P:PRINT CHR#&(144) 
X+1,11:PRINT CHR$(145) 
X+1,1%:PRINT CHR#(147) 
X+1,11:PEN A: PRINT CHR#(146) 
X+1,1Z:PRINT CHR#(148) 
X+1,12:PEN 7:PRINT CHR$#(149) 


? 


(variable M) 
(variable F) 


nombre de m(langes 

selon niveau de jeu 

PEN 7:LOCATE 1%,12:PRINT CHR#(150) 

WINDOW #3,7,14,23,74 

GOSUR Æ320:GOT0 2350 

FOR J=i TO 10:FOR I=1 TO 100 STEP 1! 

SOUND 1,1,1,15 

NEXT I:NEXT J:RETURN 

IF F=Z THEN #380 

M=INT (RND*#10) +5 

GOTO 2420 

MÆ=INT (RND#25 ) +10) 

? 

* dtbut du brouillage variable (P) 
tirage al(atoire selon F 

? 

FOR P=i TO M 

IF F=Z THEN #540 


: À 


niveau À —- 3 rangs de cubes 


Y=INT(RND*x3)+1 

IF Y=i THEN Y=306:L=6:GOTO 4690 
IF Y=Z THEN Y=£74:L=8:GOTO 2750 
IF Y=3 THEN Y=#4Z:l=10:GOTO 2810 


? 


niveau # —- 5 rangs de cubes 
Y=INT(RND#S)+1 

IF THEN Y=338:L=4:GOTO 

IF * THEN Y=306:L=6:GOTQ 

IF THEN Y=274:L=8:GOTO 

THEN Y=24%:L=10:GOTO 
THEN Y=#10:L=12:G0T0 


630 
z690 
750) 
Zz810 
IF 870 
coordonn(ies colonnes des cubes 
ditermin(tes par la ligne choisie 





630 
=640 
650 
£660 
670 
=:680 
690 
Z2700 
2710 
720 
#730 
2740 
#750 
2760 
770 
780 
2790 
:800 
810 
28:0 
830 
2840 
850 
2860 
=:870 
880 
“890 
=:900 
z910 
2920 
2930 
940 
950 
z:980 
970 
980 
990 
‘3000 
varia 


variables Al et Pi 


selon 
3010 
30:0 
pr {pa 


X=INT (RND#5) +1 

IF X=1 THEN X=290:C=10:GOTO 
1F THEN X=354:C=1%:GOTO 
IF THEN X=418:C=14:GOTOQ 
IF THEN X=482%:C=16:GOTO 
IF THEN X=546:C=18:GO0TO 
X=I RND*%S ) +1 

IF THEN X=226:C=8:GOTO 3050 
IF THEN X=#90:C=10:GOTO0 3050 
IF THEN X=354:C=12:GO0TQ 3050 
IF THEN X=418:C=14:GOT0 3050 
IF THEN X=48%:C=16:GOTOQ 3050 
X=I RND+%5 ) +1 

IF THEN X=16#:C=6:GOTO 3050 
IF THEN X=2263:C=8:GO0TO 3050 
IF THEN X=#90:C=10:G0TQ 3050 
IF THEN X=9354:C=1Z:GOT0 3050 
IF THEN X=418:C=14:G0T0 3050 
X=I RND*#S ) +1 

IF THEN X=98:C=4:GO0TQ 3050 
IF THEN X=16Z:C=6:GOTO 3050 
IF THEN X=226:C=8:GOTO 3050 
IF THEN X=#90:C=10:GOTO 3050 
IF 9 THEN X=354:C=12%:GOTQ 3050) 
X=I RND*#S5 ) +1 

IF THEN X=34:C=2:GOTO 3050 
IF THEN X=98:C=4:GOT0 3050 
IF THEN X=16%#:C=6:GOTO 3050 
IF THEN X=226:C=8:GOTO 3050 
IF X=5 THEN X=#290:C=10:GO0T0 3050 
NEXT P 

P=60:GOSUR =320 

IF F=2 THEN CJ=Mx6:GOTO 2970 

IF F=1 THEN CJ=Mx4 

SC=0 

X=290:Y=274:l=8:C=10 


? 


3050 
3050 
3050 
3050 
3050 


LKXX X 


Dre iQ ee UE UHE = UE GHEe = UE Gi 


HOW HU UN NH UUUNNH 


XKKXKXZKK NE XX XX ZX XX XX XX XX ZX XX XX XX XX 


à 


? 


bles A,P 


test couleur: 

(pen) couleurs d'origines 
(pen) modifications 
variable OP 


+ 


? 


sous programme commun pour la 
ration du jeu et les d(placement du 


Joueur 


3030 
3040 
3050 
3060 


3070 


‘3080 
3090 
Q 336 
3100 
3360 
3110 
3120 
3130 
3140 
O 336 
3150 
3160 
TO 33 
3170 
O 336 
3180 


, 


y 


MOVE X,Y 

IF F=1i THEN 3110 
IF TEST(X,Y)<:3 

A=3:P=11 
IF OP=l 

0 

IF OP=3 OR OP=4 


THEN 3110 


OR OP=2 THEN A1=8:P1=14: GOT 


THEN Ai=#:P1=9:G0TO0 
IF TEST(X,Y)<È:Z 
A=E:P=9 
IF Fa 
IF OPzi 
(a) 

GOTO 3170) 

IF OPzl OR OP=*# THEN 
60 

IF OP=3 OR OP=4 
(a) 

IF TEST(X,Y)<>4 


THEN 3180 


THEN 3160 


OR OP=Z THEN Ai=1:B1=10:GOT 


h1=3:P1=11:G0 
THEN A1=4:P1=15 : GOT 


THEN 320 


3190 A=4:B=15 


3200 


IF OP=1 OR OP=X THEN Ai=#:P1=9:GOTOQ 





3360 
3210 IF OP=3 OR OP=4 THEN A1=13:P1=5:GOT 
O 3360 
3ZE:0 IF TEST(X,Y)<%;13 THEN 3260 
3230 A=13:P=5 


3240 IF OP=1 OR OP=Z THEN Ai=4:B1=15 : GOT 
O0 3360 
3250 IF OP=3 OR OP=4 THEN 4i=1:P1=10:GOT 
0 3360 


3260 IF TEST(X,Y)<3531 THEN 
3270 A=1:B=10 


3320 


3280 IF OPzi OR OP=Z THEN A1=13:B1=5:GOT 
© 3360 
3290 IF F=Z THEN 3310 


3300 IF OP=3 OR OP=4 THEN A1=2:B1=9:GOTO 
3360 

39310 IF OP=3 OR OP=4 THEN 41=8:P1=14:GOT 

O0 3360 

3320 IF TEST(X,Y)2>8 THEN 2980 

3330 A=8:P=14 

3340 IF OP=1 OR OP=2 THEN Ai=1:P1=10:GOT 

0 33460 

3350 IF OP=3 OR OP=4 THEN A41=3:Pi=1i 

3360 IF P£=M THEN 4330 

3370 GOTO 3460 

3380 ? 

3390 ? top sonore d{placement impossible 

3400 ? 

3410 SOUND 10,46,5,7 


3420 
3430 
3440 


SOUND 17,66,5,7 


affiche le point blanc sur un cube 
apr})s d(placement ou permutation 
3450 ? 


3460 LOCATE C,L:PEN 6:PRINT CHR$(151) 
3470 ? 

3480 ? d(placement du cube de base 
3490 ? 

3500 IF INKEY(O0)=0 THEN 3700 

3510 IF INKEY(Z2)=0 THEN 3810 

3520 IF INKEY(1)=0 THEN 3930 

3530 IF INKEY(8)570 THEN 4100 

3540 ? 

43550 ? mise en route permutation 
3560 ? 

3570 IF INKEY(9)=0 THEN 4330 

3580 ? 

3590 ? annulation de la partie 

3600 ? 

3610 IF INKEY(69)=0 THEN 6140 

3620 ? 

3630 ? virifie la couleur des cubes du 


jeu avec le choix de l'ordinateur 


3640 ? 
3650 IF INKEY(55)=0 THEN GOSUR 4250::GOT 
0 560 


3660 GOTO 3460 

3670 ? ‘ 

3680 ? d(placement impossible en haut 
3690 ? 

3700 IF F=Z AND L=4 THEN 3410 
3710 IF F=1 AND L=6 THEN 3410 
37#0 GOSUR 450 

3730 ? 

3740 ? remonte d’un cube 

3750 L=L-E:C=C+E 

3760 X=X+64:Y=Y+32 

‘3770 GOTO 3050 





3780 ? 

3790 ’d(placement impossible en bas 
3800 ? | 
3810 IF F=2 AND L=iZ THEN 3410:GOT0 3830 
3820 IF F=i AND L=10 THEN 3410 

3830 GOSUR 4250 

3840 ? 

3850 ? descend d’un cube 

3860 ? 

3870 LeL+Z:C=C-2 

3880 X=X-64:Y=Y-37 

3890 GOTO 3050 

3900 ? 
| 3910 ?’ d(placement impossible à droite 
3920 ? 

3930 IF F=1 AND L=é6 AND C=ié6é THEN 3410 
3940 IF L=z4 AND C=18 THEN 3410 

3950 IF L=é6 AND C=ié THEN 3410 

3960 IF L=8 AND C=14 THEN 3410 

3970 IF F=2 AND L=10 AND C=1X THEN 3410 
3980 IF L=10 AND C=12 THEN 3410 

3990 IF L=ix AND C=10 THEN 3410 

4000 GOSUR 4250 

4010 ? 

4020 ? d(placement d’un cube à droite 
4030 ? 

4040 C=C+z 
| 4050 X=X+64 

4060 GOTO 3050 
| 4070 ? 

4080 ’diplacement impossible à gauche 
4090 ? 

4100 IF F=1 THEN 4110 ELSE IF L=4 AND C= 
10 THEN 3410 

4110 IF L=é AND C=8 THEN 3410 

4120 IF L=B8 AND C=6 THEN 3410 

4130 IF L=10 AND C=4 THEN 3410 

4140 IF F=1 THEN 4150 ELSE IF L=ix# AND C 
=Z2 THEN 3410 

4150 GOSUR 4250 

4160 ? 

4170 ? d{placement d’un cube à gauche 
4180 ? 

4190 C=C-7 

4200 X=X-64 

4210 GOTO 3050 
| 42%0 ? 
| 4230 ? efface le point blanc avant 





dtplacement - retour au sous programme 
pour de d(placement pour nouvelles 
coordonn(es et nouvel affichage 
4240 ? 
4:50 LOCATE C,L 
4260 PEN À 
4270 PRINT CHR#(143) 
4280 FOR TP=1i TO JGOO:NEXT 
4290 RETURN 
4300 ? 
4310 ‘affichage du score 
43:20 ? 
4330 ENV 1,50,ZX,Z2:ENT 1,50,-*,Z3:SOUND 1, 
220,734 144,41 
4340 IF P£;60 THEN 4490 ’pr{iparation non 
termin(e renvoi aux permutations 

4350 SC=S5C+1 
4360 IF SC#=CJ-19 THEN 4390 ? reste 270 
coups à jouer mise en route clignotement 
4370 INK 12,7,276 


(variable SC) 


13 


4380 IF SC=CJ+1 THEN 5350 ’partie perdue 
4390 IF SC:9 THEN 4400 ELSE LOCATE 4,2%: 
PEN 10:PRINT CHR#(143):LOCATE 3,%2Z8 PEN 1 
Z:PRINT SC:GOTO 4490 
4400 IF SC:99 THEN 4410 ELSE LOCATE 3,2% 
:PEN 10:PRINT CHR#(143)+CHR$(143) :LOCATE 
2,22: PEN 1#:PRINT SC:GOTO 4490 
4410 LOCATE 2,2%:PEN 10:PRINT CHR$!/143)+ 
CHR$S(143)+CHRS (143) :LOCATE KReR Tee les 
RINT SC 
4450 
4430 ? 
4440 
4450 
4460 
4470 


sous programme de permutation 


modification du cube de base 
pen = variables Ai et Pi 

4480 ? 

4490 PEN Pi 
4500 LOCATE 
45) 

4510 LOCATE 
45:20 PEN Ali 
4530 LOCATE 
4540 LOCATE 
) 

4550 ? 
4560 ? 


C,L-1:PRINT CHR$&(144)+CHRS& (1 
C+1,L:PRINT CHR$#(147) 
C+1,L-1:PRINT CHR$(146) 
C,L:PRINT CHR$(143)+CHR$# (146 


des cubes autour 
variables U et V 


{tudie position 

du cube de base: 

4570 

4580 ? ditermine si une permutation de 

couleur doit tre faite selon 

valeur de L, Cet F 

4590 ? 

4600 IF F=z* AND L=4 THEN 4650 

4610 IF F=1 AND L#=6 THEN 4650 

620 UzlL-Z:V=C+E 

4630 YA=Y+3::XA=X+64 

4640 GOSUR 4940 

4850 IF AND L=4 AND C=18 THEN 4750 

46860 IF F AND L£=é AND C=1é6 THEN 4750) 

4670 IF L AND C=ié THEN 4750 

4680 IF L AND C=14 THEN 4750 
F 
L 
L= 


. 
1 


RRnDonN 


HW O4 


4690 IF AND L5=10 AND C=1% THEN 4750 
4700 IF 9 AND Cz=1i2 THEN 4750 

4710 IF “ AND C=10 THEN 4750 

4720 U=L:VaC+E 

4730 YA=ZY:XA=X+64 

4740 GOSUR 4940 

4750 IF F=2Z AND L=1iZ THEN 4800 

4760 IF F=i AND L>=10 THEN 4800 

4770 Uzl+ïs:VzCc-2 

4780 YA=Y-32:XA=X-64 

4790 GOSUR 4940 

4800 IF AND L=4 AND C=10 THEN 4900 
4810 IF AND L£=6 AND C=8 THEN 4900 
4820 IF AND C=8 THEN 4900 

4830 IF AND C=é THEN 4900 

“840 IF AND L=10 AND C=4 THEN 4900 
4850 IF AND C=4 THEN 4900 

4860 IF Fee C=*# THEN 4900 

4870 U=L: — 2 

4880 YA=Y: ue X—-64 

4890 GOSUR 4940 

4900 IF P£60 THEN 4920 

4910 GOTO 3050 

4920 IF P=M THEN =940 

4930 GOTO 2930 


FORTE ANT 


cu WU HN 


na RE 
Gt O0 


4940 
4950 test couleur des cubes entourant 


le cube de base: Variables XA,YA 


4960 ? : 
4970 IF F=1 THEN 5010 
TEST(XA, YA)< 
OP=2 


4980 IF 
4990 IF 
5230 
3000 IF 
O 5230 

9010 IF TEST(XA,YA)£>Z THEN 5060 

350£0 IF F=* THEN 5040 

5030 IF OP=i OR OP=4 THEN Al=1:P1=10:GOT 
O 52:30 

2040 IF OP=Z OR OP=3 THEN Ai=4:B1=15:GOT 
O 5:30 

5050. IF OP=1 
Q 52:30 

5060 IF TEST(XA,YA)<:4 THEN 5090 

5070 IF OP=Z OR OP=3 THEN A1=13:B1=5:GOT 
Q 5230 

9080 IF OP=1 OR OP=4 THEN A1=2:B1=9:GOTO 
5230 

2090 IF TEST(XA,YA)#>13 THEN 51270 

35100 IF OP=Z OR OP=3 THEN A1=1:Pli=10:GOT 
O 52930 

5110 IF OP=1 
O 5230 

10 IF TEST(XA,YA)<:1 THEN 5170 

3130 IF F=Z THEN 5150 

9140 IF OP=Z OR OP=3 THEN A1=2:P1=9:GOT0 
5230 

2150 IF OP=1 OR OP=4 THEN A1=13:P1=5: GOT 

Q 5230 

5160 IF OP=Z OR OP=3 THEN Ai=8:P1=14: GOT 

Q 5230 

5170 IF F=1 THEN 5230 ELSE IF TEST(XA,YA 
)4:8 THEN 4900 

5180 IF OP=Z OR OP=3 THEN A1=3:Pi=11:GOT 

Q 52:30 

3190 IF OP=i OR OP=4 THEN A1i=1:P1=10 

5:00 ? ‘ 

3210 ‘modifie la couleur cube par cube 

selon variable OP 


+3 THEN 5010 
OR OP=3 THEN A1=%Z:21=9:GOTO 


OP=1 OR OP=4 THEN A41=8:P1=14: GOT 


OR OP=4 THEN A1=3:Bizi1i:GOT 


OR OP=4 THEN A1=4:2P1=15: GOT 


ri ? 
Lx. 


3230 PEN Bi 

5240 LOCATE V,U-1:PRINT CHR$(144) 

3250 LOCATE V+1,U-1:PRINT CHR#(145) 

3260 LOCATE V+1,U:PRINT CHR#&(147) 

5270 PEN Ai 

5280 LOCATE V+1,U-1:PRINT CHR$(146) 

3:90 LOCATE V,U:PRINT CHR#(143)+CHR$ (146 
) 

3300 V=0:U=0:41=0:P1-=0 

35310 RETURN 

9320 ? 
59330 ?’la partie est perdue 
5340 ? 

239350 G=40:FOR Iz1 TO %6 

5360 INK O,1I 

5370 SOUND 10,G,10,15 

5380 SOUND 17,G-20,10,15 

5390 G=G+70 

3400 PEN 1Z:LOCATE 8,£%4:PRINT 
XT I:GOSUR Z2320:GO0TO 6190 
risultat 

5410 ? 
54x0 ? 


"PERDU" :NE 
‘affichage du 


accompagnement musical pour 





prisentation et partie gagnie 


5430 
5440 ENV 1,1,15,1,10,-3,20 
5450 ENV 2,1,6,1,20,-2, 0. 

5460 ENV 3,1,3,1,30,-2,0 

5470 RESTORE 5540 

5480 FOR I=1 TO 73 

5490 READ D,P1,P2 

5500 SOUND 49,P1,D*14,0,1 

5510 SOUND 42,P2,D*14,0,% 

5520 SOUND 28,P2/2,D*14,0,3 

5530 NEXT I 

5540 DATA 2,851,106,1,638,80,1,676,B4,2%, 
638,80,2,851,106,2,568,71,2,851,106,2,53 
6,67,2,638,80,2,478,60,2,638,680,2,4%6,53 
,2,638,80,2,402,50,2,638,80,1,676,84,1,6 
38,80, 1,568,71,1,676,84,2,851,106,1,4276, 
53,1,478,60 

5550 DATA 1,506,63,1,478,60,1,476,53,1,5 
06,63,1,638,80,1,568,71,1,506,63,1,636,9 
0,2,716,89,1,804,100,1,851,106,2%,804, 100 
,1,478,60,1,536,67,1,568,71,1,536,67,1,4 
78, 60 
5560 DATA 1,568,71,1,716,89,1,638,80,1,5 
68,71,1,716,89,2,804,100,1,851,106,1,956 
.119,%,851,106,1,536,67,1,568,71,1,638,8 
0,1,568,71,1,536,67,1,638,80, 1,804,100, 1 
:716,89,1,638,80,1,804,100,2,851,106,1,9 
56,119 

5570 DATA 1,1073,134,2,956,119,2,804,100 
,2,851,106,2,638,80,1,676,84,1,638,80,1, 


568,71,1,676,84,2,676,84,1,638,80,1,676,. 


84,3,638,680,3 

5980 RETURN 

5590 ? 

3600 ? controle des couleurs et du choix 

de l'ordinateur touche £Vri:variable Z 

5610 ? 

H6EO X=290:Y=SO0: MOVE X,Y 

5630 IF TEST(X,Y)=1 THEN 

5640 IF TEST(X,Y)=Z THEN 2 

5450 IF TEST(X,Y)=3 THEN 

5660 IF TEST(X,Y)=4 THEN 

5670 IF TEST(X,Y)=8 THEN 

3680 IF TEST(X,Y)=13 THEN 

5690 IF F=* THEN 5730 

5700 X1=:28:X:-48: 

5710 Y=306:NL=3 

27*#0 GOTO 5740 

5740 Y=338:X1-=290:X2=548:NL=5 

5740 FOR I=i TO NL 

5750 FOR X=X1 TO X: STEP 64 

3760 MOVE X,Y 

5770 IF TEST(X,Y)252 THEN 5850 ? un 
cubes n’est pas de la bonne couleur 

3780 NEXT X 

5790 X1=X1-64:X2=X2-643:Y=Y-3: 

5800 NEXT I 

5810 GOTO 5890 ? tous les cubes sont 
corrects — partie gagnie 

580 ? 

5830 ? 


des 


couleur des cubes incorrecte 

la partie doit continuer 
5840 ? 
3850 PEN 1Z2:LOCATE 8,24:PRINT "REJOUEZ": 
GOSUR “JZO: PEN O:FOR X=8 TO 14:LOCATE X, 
. 43 PRINT CHR$(143):NEXT X:GOTO 3460 ; 
retour programme principal 





N 1:FOR I=i TO 3:FOR N=i TO 


3860 
3870 couleur d’origine reconstitut(e 
partie gagne 

5880 ? 

5890 MODE 1:INK 1,7:INK O,19:FOR I=zi TO 

1O0:ENT 1,30,30,5:SOUND 1,#0,10,153,0,1:NE 

XT:PEN 1:LOCATE 5,2Z:PRINT "J'ai effectui 
"sMs" permutations":LOCATE 4,43PRINT "V 

ous deviez r{ussir en ";CJ;" coups":LOCA 

TE 10,7:PRINT "VOTRE SCORE EST DE"3,5C 

5900 LOCATE 9,10:PRINT "TOUTES MES FELIC 

ITATIONS"':IF F=Z THEN 5910 ELSE LOCATE 3 

314:PRINT "Mais si vous voulez Atre un C 

hampion":LOCATE 11,16:PRINT "essayez le 

niveau Z":GOSUR 5440:GOTO0 5940 

5910 LOCATE 11,14:PRINT "C'est un vrai p 

laisir de jouer":LOCATE 6,16: PRINT "avec 
quelqu'un d'aussi fort":GOSUR 5440 

59:0 ? 

5930 ? attente d’une touche nouvelle 

partie ou fin de jeu 

3940 LOCATE 1,%#4:PRINT "Nouvelle partie 
O/N" 

3950 TH=UPPERSUINKEYS#):IF T$="" 

(a) 

5960 IF T#="N" 

5970 IF T$="o" 

5980 GOTO 5950 

3990 OP=0:P=0:M=0:SC=0:CJ=0: X=0:Y=0: LEO: 

C=0O:NL=O:Z=0:F=0:A4=0:P=0:A1=0:P1=0:ua=0: 

“#a=O:PORDER 13:INK 0,13:OP=INT(RND*x4)+1: 

GOTO 1230 ?’variables remises à 0 pour 

nouvelle partie 

6000 

6010 ? 

600 ? 

6030 MODE O:PBORDER 13:INK O,O0:N=10:LOCAT 

E 1,2 

6040 FOR I=1 TO Z55:SOUND 1,N,1,15:POKE 

&RESF, I: PRINT " AU  REVOIR'"'3sIF Iisl® 

8 THEN 6070 

6050 N=N-1 

6060 GOTO 6080 

6070 N=N+1 

6080 NEXT 

6090 INK O,1:PORDER 1 

6100 MODE 1:INK 1,%#43:PEN 1:END 

6110 ? 

61#0 ? 

6130 ? 

6140 MODE 1:PBORDER Z:INK O,Z:INK 1,15:PE 

100 STEP 10: 


THEN 595 


THEN 6030 
THEN 5990 


fin de partie 


annulation d’un jeu 


SOUND 1,N,2,15:NEXT:NEXT 
6150 LOCATE 7,6:PRINT "Vous n’allez pas 
abandonner":LOCATE 5,10:PRINT "je commen 
cais à bien m’amuser !':LOCATE 1%,14:PRT 
NT "ON EN REFAIT UNE ?":GOTO 5940 
6160 ? 
6170 ? 
6180 ? 
6190 MODE 1:INK 0,7:PORDER 7:INK 1,25:L0 
CATE 1,4:PEN 1:PRINT " D{sol{, je ne sui 
& pas facile à battre":LOCATE 10,9:PRINT 
"Vous avez jou(":SCs;"fois":LOCATE 5,12: 
PRINT "Vous deviez r{iussir en"3;CJ;'"coups. 
6200 LOCATE 9,18:PRINT 
RESULTAT" :GOTO 5940 8 


affichage r{isultat partie perdue 


"PAS TERRIPLE LE 











Bertrand OLIVIER 


e programme vous apportera une aide considérable dans l'écriture de vos 
propres programmes ou dans la mise au point et compréhension d’un pro- 


gramme créé par un autre auteur. 


Entièrement écrit en Basic, il est basé sur la connaissance de la façon dont l'inter- 


préteur écrit les lignes Basic en mémoire. 


LE PROGRAMME 


Après avoir tapé, vérifié, sauvegardé cet 
utilitaire, faites coexister en mémoire le 
programme sur lequel vous désirez tra- 
vailler et l'utilitaire (utiliser la commande 
MERGE) puis tapez RUN 30000. Le 
menu principal vous propose alors 4 
choix dans deux domaines distincts : 
modification, recherche. 


MODIFICATION DU 
NOM D'UNE VARIABLE 


Entrer le nom de la variable à modifier, 
puis le nouveau nom à donner à cette 
variable (ces deux noms doivent être de 
longueur et de type identique). Après une 
vérification (le nouveau nom proposé, 


existe-il déjà ?), la modification a lieu. 
Dans le cas où le nouveau nom proposé 
a déjà été utilisé, vous avez alors le choix 
entre : 

— forcer l'écriture (la modification a lieu 
bien que ce nouveau nom a déjà été uti- 
lisé}, 

— éditer sur l'écran les numéros de ligne 
où existe ce nouveau nom, 

— fin : retour en mode direct. 


MODIFICATION DU 
TYPE D'UNE VARIABLE 


Cette option ne concerne que les varia- 
bles numériques. Entrer le nom de la 
variable à modifier, choisir la modifica- 
tion à faire (le nom de la variable doit être 
entré sans indicateur de type). 





MODIFVAR 


On peut transformer une variable de type 
réel en variable de type entier (%) ou 
inversement, soit x en x% ou x% en x. 
Avantages à utiliser le type % (entier de 
— 32768 à +32767) : 

— gain de place en mémoire, 

— rapidité d'exécution (jusqu'à 2,5 fois 
plus rapide). 

Ce type de variable est à utiliser le plus 
souvent possible dans les boucles, 
compteurs, graphismes, sons, etc. 


RECHERCHE NUMERO DE 
LIGNE D'UNE VARIABLE DONNEE 


Entrer le nom recherché (avec son indi- 
cateur de type s'il y a lieu). Les numé- 
ros de ligne où existe la variable appa- 
raissent sur l'écran, puis on revient au 
mode direct. 


RECHERCHE D'UN TOKEN 


Entrer la valeur du token. Cette routine 
a un fonctionnement similaire à la pré- 
cédente (valeurs de 128 à 255). 


“3C110 
3010 
30130 
30140 
30150 KEY 


KEY 
KEY 
KEY 
KEY 


159,'"edit " 

158,"cls"+CHR$(13) 

157,"run 30000"+CHR#(13) 

DEF 6,1,13,13,159 

DEF 7,0,46,46,158 

30160 KEY DEF 15,0,48,48, 157 

30170 ? RHHEHEHEELEREREMREMÉMRERÉREREREREX 
30180 CLEAR:CLEAR INPUT:ZONE 10:MODE 1 
30190 INK O,1:INK 1,2%4:INK 3,0 

30:00 PAPER O:PEN 1 

30:10 PRINT " TRAITEMENT DE VARIABLES" 

30220 PRINT:PRINT:PRINT "MODIFICATION :" 

30230 PRINT:PRINT " l1— du nom d’une var 
iable" 

30:40 PRINT:PRINT "  z-— 

riable" 

30:50 PRINT:PRINT:PRINT 
ligne :" 

30:60 PRINT:PRINT " 

onnee" 

30:70 

DIM ENV ENV ENV ENV ENV ENV ENV 30780 

ENV ENV ENV ENV ENV ENV ENV ENV pu 

ENV EñIV ENV ENV ENV ENV ENV ENV ‘30790 

ENT 30300 

Redefinition des 3 touches du ‘30310 

bas du clavier numerique 


ce No de ligne (30000) indique 
la fin de modification ou de 
recherche (if n124=30000...) 
30010 ?’ EDIT ENV ENV ENV ENV ENV ENV ENV 
ENV ENV ENV ENV ENV ENV ENV ENV ENV ENV 
ENV ENV ENV ENV ENV ENV ENV ENV ENV ENV 
ENV ENV ERROR 
30070 ? DRAWR 
DRAWR 
30030 ? 
DRAUR 
30040 ? DRAWR 
VIER DRAWR 
30050 ? DRAWR 
DRAWR 
30060 ? 
DRAUR 
30070 ? 
DRAWR 
30080 ? 
4 DRAWR 
‘30090 ? 
ENV ENV 
ENV ENV 
ENV ENV 
30100 


30000 


MODIFVAR 1.1 


DRAWR 


KEY sept/1985 bertrand OLI 


du type d’une va 


DRAWR Pour la revue CPC 


"RECHERCHE 
DRAUR E No de 
3—- d’une variable d 


DRAWR Pour CPC: 664 & 46 


PRINT:PRINT "  4- d’un TOKEN" 
PRINT:PRINT:PRINT " Votre choix 


CH=INKEYS:IF c#="" 
PAPER 3:CLS 
ON VAL(c#) 


THEN 30:90 


GOTO 30350, 30830, 30960, 





31150,313:0 
30320 ? le choix 
extension futur 
30330 RUN 30180 
30340 ? KHKHKHEHEHEHEX Choix À 
‘30350 INPUT "Nom de la variable a modifi 
er :"s;an$ 
30360 INPUT "Nouveau nom 
snn$:GOSUPR 31000 
30370 CLS:PRINT "Verification 
30380 ? +#*H##HEEHEEEX recherche d’1i1 var. 
30390 nl4=PEEK(p4+3)#256+PEEK(p4+2) 
30400 IF n14=30000 THEN 30610 
30410 pf{=p+PEEK(p4)+PEEK(p4+1)#256:r%2= 
p+4 | 
30470 
30460 
30430 ré=r/+i:IF rAspfz-5 THEN pZ=pfz:G0o 
TO 30390 
30440 GOTO 30470 
30450 ? ##kkHHRRRRREX Vverif nom 
30460 FOR j4=1 TO 1vx 
30470 IF PEEK(r4+j2)<5n2(j2) 
+j2)45n2(j4)-32 THEN 30430 
30480 NEXT 
30490 PRINT:PRINT 
st deja utilisee" 
30500 PRINT "Faut il 
30510 PRINT "i- Forcer l’ecriture" 
30520 PRINT "Z- Editer les No de lignes" 
30530 PRINT "3- Fin" 
30540 PRINT:PRINT:PRINT " 
7" 
30550 
305460 
305 70 
30580 
30590 
30970 
30600 
30610 


306:0 


No 5 existe pour 
(ou la votre 7) 


a lui donner :" 


UM. 
Ci 3 


IF PEEK(r)=ty%z THEN r=r2+2z:GOTO 


variable 


AND PEEK(r% 


"La variable "snn$;" €e 


Votre choix 


CH=INKEYS:IF c$="" THEN 30550 

ON VAL(CS) GOTO 30600, 30590, 30580 
GOTO 30550 

PAPER O:CLS:END 

an$=nn$:GOSUR 31000:CLS:PRINT:GOTO 


CLS 


PRINT " OK":PRINT "Modification de 


PRINT an$;" en ";nn$;" en ligne :" 


7 
30630 
30640 ? 


p2=368 

HRÉHÉREREREE recherche d’1 var. 
nl=PEEK(p4+3)#256+PEEK(p4+2) 

IF n1%4=30000 THEN 31:80 
pf=pz+PEEK(p%)+PEEK(pA+1)#256:rz: 


30650 
30640 
30670 
pz+4 
30680 
307:0 
30690 rZ=r/+il:iF rZipf/-5 THEN pZ=pf:Go 
TO 30450 

30700 GOTO 30680 

30710 ? K#kKHKHKKHKHKEKHEX Vverif nom 
30720 FOR j2=1 TO lvx 

30730 IF PEEK(r2+j%)<%a2(;j%) AND PEEK(r%x 
+j4)£#a2(j4)-32Z THEN 30690 

30740 NEXT 

30750 ? #k###Kk#HEKHEEX ecriture 

30760 FOR j2=1 TO 1vx 

30770 POKE r2+j%,n2(j%) 

30780 NEXT 

30790 PRINT n1%, 

30800 IF f2=1 THEN POKE r2-2,nty% 

© 30810 r£zr4+i:GOTO 30690 


IF PEEK(r%)=tyx THEN r=r+x : GOTO 


variable 


308:0 
‘30830 
er " 
30840 
"san 
30850 
C2)" 
30860 
reel" 
30870 
7 U] 
30880 
30880 
30890 
30900 
30910 
309%0 
upe de 
30930 
30940 
30950 
30960 
ee 
30970 
R$(:0) 
30980 
0 
‘30990 
31000 
31010 


VOHRÉERRRMRERMREX CHOÏS 
PRINT "Nom de la variable a modifi 


INPUT "(sans indicateur de type) : 


PRINT "i- Type reel en type entier 


PRINT "2- Type entier (%) en type 


PRINT:PRINT:PRINT " Votre choix 


CH=INKEYS:IF ch<"1" OR ch>"2" THEN 

nn$=an$:GOSUR 31000:f4=1 

IF c$="1" THEN nty%z2:ty=153 

IF c$="Z" THEN nty2=13:tyzz 

CLS:PRINT:PRINT "Modification du t 
la variable :" 

PRINT an$;" 

GOTO 304650 

TOHRRERÉRÉHERE CHOIX 3 

INPUT "Nom de la variable recherch 

an$:nn$=an$:GOSUE 31000 

PRINT "On trouve la variable 


en ligne :", 


s"+CH 


PRINT an$;" en ligne :",:GOTO 3065 
VORRRRRRRREREÉ GS. P. 
an$=LOWERS (ang) :nn$=LOWERS (nn$) 
1VZ=LEN(nnH):1F 1VZLSLEN(anS) THEN 


RUN 30180 


3100 
31030 
31040 
31050 
31060 
31070 
31080 
31090 
31100 
31110 
311=0 
31130 
31140 
31150 
2 

31160 
31170 
31160 
31190 


431200 


31:10 
pz+4 
31220 
31230 
31190 
31240 
31:50 
R PEEK 
31:60 
31270 
31280 
31290 
31300 
13 VA 
31310 
31320 


tYyBS=RIGHTHS(nn$, 1) 

ty2=13 

IF ty$="$" THEN tuy2=3:1vz=1vz-i 
IF ty$="%" THEN ty=z:1v/=l1vz-1 
FOR i%=1 TO 1vZ-1 
a/(iZ)=ASC(MID#(anp,i%,1)):NEXT 
a2(i2)=ASC(MIDH(ant,i%,1))+128 
FOR i%=1 TO lvz-i 
nZ(i2)=4SC(MIDS(nn$,i%,1)):NEXT 
nZ(i2)=ASC(MID#(nn$,1i%,1))+128 
p/=368 

RETURN 

TORHHHÉEÉEEHEREEEÉ ChOÏH 4 

INPUT "No du TOKEN recherche s:"3tk 


PRINT "On trouve le TOKEN :" 
PRINT tkZs'"en ligne 
pl=368 
nlÆ=PEEK(p2+3)#256+PEEK(p%4+2) 

IF n17=30000 THEN 31280 
pf/=pz+PEEK(p%)+PEEK(pA+1)#256:r%= 


IF PEEK(rZ2)=tkEZ THEN 31:50 
ré=r+isiF rZzpfz THEN pZspfz:GOTO 


GOTO 31220 

IF PEEK(r2+1)=93% OR PEEK(r4+1)=1 © 
(r2+1)=0 THEN PRINT n1l%, 

GOTO 31230 

TOHHRÉREHRREREE Fin 

VA=VPOS(#0) 

LOCATE 1,25:PRINT:PRINT:PRINT 
WINDOW 1,40,V4-1,2Z25:WINDOW #1,1,40 


PAPER O:CLS:END 
END:REM *%#% Pour extention 








Fabrice PESIN 


tempête cosmique et rejeté sur une planète inconnue. 
Pour survivre, il s’est installé sur une falaise où 
viennent nicher des oiseaux, ayant pour seule nourriture leurs 


L misérable Terrien, s’est trouvé pris dans une 


œufs. 


Les Bugbears, très friands de ces œufs, viennent s’en saisir ; 


à vous de les en empêcher. 
La règle du jeu vous sera donnée par l'ordinateur. 
Bonne chance ! 


REM HN DEUE EE DEEE NE 
REM * FABRICE PESIN +* 
REM +% PRESENTE : 
REM TOMMY 
REM POUR AMSTRAD 
REM CPC 464 
REM * CPC 664 
REM ee JE 
GOSUR 1010 
GOSUR 13%#0 
GOSUR 2490 
GOSUR 14630 
FOR Tzi TO À 
AS=INKEYS:IF AS=CHRS(122) 
ELSE Y=Y+1 
160 IF Y:8 THEN Y=8:EN=38+PE:LOCATE Z+PE 
23: PRINT'ENERGIE sHMXXMDeHENM HOUNMOHMH HN NOHONNEMONN 


vuuut" 
{ 


THEN Y=Y-i1 


170 IF Y>19 THEN Y=19:FL=%4+PE:BP=0:LOCAT 
E 2+PE,25:PRINT"'FLECHESs vw Vu vu vu vu" 
THEN GOSUR 520 


180 IF A$=CHR$S(9Z) 
190 LOCATE X,Y-1:PRINT"'ijE":LOCATE X,Y:P 
RINT"Imn":LOCATE X,Y+1:PRINT'"opqa" 

Z00 LOCATE X,Y-2:PRINT" e ":LOCATE X,Y+* 


: PRINT" "sNEXT 

210 EN=EN-1:IF EN<10 THEN GOSUR 650 

“20 GOSUR :60 

230 GOSUR 6%0 

#40 GOTO 140 

#50 REM +*+*% DEPLACEMENT MONSTRE #% 

Z60 Yi=Yi+1:IF Y1:20 THEN Yi1=20:GOSUR 30 
O:GOSUR 450 

#70 LOCATE F,Y1:PRINT"'stu":LOCATE F,Y1-1 
PRINT" * 

“80 RETURN 

290 REM ##% OEUFS-1 #** 

300 FOR T=F TO 3O0:LOCATE F-1,20:PRINT" 


310 LOCATE T,20:PRINT"stu":LOCATE T-1,20 





PRINT" ":NEXT 

320 IF OEUF-E20 THEN T=0:GOTO 380 

330 LOCATE 29,ZO:PRINT" ù 

3440 FOR T=20 TO OEUF STEP -1 

350 LOCATE 30,T:PRINT"stu" 

360 LOCATE 30,T+1:PRINT" ” 

370 NEXT:LOCATE 30,T+1:PRINT" d 

380 FOR J=30 TO 3S:LOCATE J,T:PRINT'"'stu" 
:LOCATE J-1,T:PRINT" ":NEXT 

390 1F OEUF=20 THEN OEUF=OEUF-3 ELSE OEU 

F=QEUF -4 

400 IF OGEUF“:7 THEN VI=VI-1:FOR Uz8 TO Zi 
STEP 4:LOCATE 35,U:PRINT" f ":NEXT 

410 IF OEUF:7 THEN LOCATE 6,Z5:PRINT VIE 
: OEUF=2Z0 

420 IF VI£1 THEN 740 

430 RETURN 

440 REM #+% CREATION MONSTRE +*x 

450 Y1=5:F=(INT(RND(1)#21)+6) : RETURN 

460 REM #x% PONUS #+# 

470 LOCATE 11+PE,15:PRINT"BONUS : 1000" 

480 FOR O=1 TO 3SOO:NEXT:LOCATE 10,15:PRI 

NT" “ 

490 SC=SC+1000 

500 RETURN 

510 REM xx TIR %* 

50 IF P=i THEN RETURN 

230 FOR T=Z8 TO F+1 STEP -1:LOCATE T,Y-1 
: PRINT"vVw":LOCATE T+2,Y-1: PRINT" " 

540 IF T=F+1 THEN LOCATE T-i1,Y-1:PRINT" 

3350 NEXT 

560 FL=FL-3 

570 IF Y=Yi1+1 THEN SC=S5C+50:GOSUR 450 

580 IF SC=5000 THEN GOSUR 470 

390 LOCATE FL,25:PRINT" "3IF FL£10 THE 

N P=1 

600 RETURN 

610 REM *x+% VARIABLES *%# 





6Z0 LOCATE EN,Z3:PRINT" ":LOCATE FL,25:P 
RINT" "#LOCATE 19,24: PRINT SC 
630 RETURN 
640 REM *% MORT *% 
650 VI=VI-1:1F VI<1 THEN VI=O:LOCATE 2,2 
4:PRINT"'VIE: O":GOSUR 740 
660 LOCATE 6,Z4:PRINT VI 
670 LOCATE 14,15:PRINT"'PLUS D’ENERGIE":F 
OR O=1 TO ZOO:NEXT 
680 LOCATE Z,23:PRINT'ENERGIE:xxaHxmmmmxN 
MHMXMNMMMMMNMNMNNH! 
690 LOCATE #,25:PRINT"'FLECHES:vw vw vw v 
w vw" 
700 EN=38:FL=2Z4:LOCATE F,Y1:PRINT" “eY 
1=7 
710 LOCATE 13,15:PRINT" , 
720 RETURN 
730 REM +#x*x FIN DE PARTIE ** 
740 FOR V=7 TO 21:LOCATE 6,V:PRINT'"'stust 
ustustustustustustu":NEXT 
750 FOR V=7 TO 20:FOR O=1 TO 
LOCATE 6,V:PRINT" 

":NEXT 
760 IF SC:HI THEN GOTO 890 
770 LOCATE 7,7:PRINT'LES BUGBEARS VOUS © 
NT LL 
780 LOCATE 7,8:PRINT"'VAINCU. VOTRE SEJOUR 


100: NEXT ©: 


790 LOCATE 7,9:PRINT"SUR AKRAS N’AURA PA 

S LL 

600 LOCATE 7,10:PRINT"ETE TRES LONG.":FO 

R O=1 TO XOO:NEXT 

810 AS=INKEYS:IF Ag="" THEN 810 ELSE 820 

820 FOR V=7 TO 10:LOCATE 7,V:PRINT" 
":NEXT 

830 LOCATE 7,7:PRINT"VOTRE SCORE EST DE: 

"sLOCATE Z6,7:PRINT SC 

840 LOCATE 7,8:PRINT"'LE HI-SCORE EST TOU 

JOURS" 

850 LOCATE 7,9:PRINT"DE:":LOCATE 10,9:PR 

INT HI 

660 LOCATE 16,9:PRINT"POINTS" 

870 LOCATE 7,10:PRINT"'ET EST DETENU PAR: 

880 LOCATE 10,1Z:PRINT NOM$:FOR O=1 TO 5 

OO0:NEXT:GOTO 950 

890 LOCATE 7,7:PRINT"BRRAVO'!VOUS AVEZ BAT 

TU" 

900 LOCATE 7,8:PRINT"'LE MEILLEUR SCORE Q 

UI":LOCATE 7,9:PRINT"'ETAIT DE" 

910 LOCATE 16,9:PRINT HI:LOCATE 23,9:PRI 

NT'POINTS" 

920 LOCATE 7,10:PRINT"ET QUI ETAIT DETEN 

U PAR:" 

930 LOCATE 7,11:PRINT NOM#:LOCATE 7,13:P 

RINT'VOTRE NOM, CHAMPION: " 

940 INPUT"DbDDDD "3; NOM$&:HI=SC 

950 LOCATE 7,16:PRINT"UNE AUTRE PARTIE ( 

O/N)7?" 

960 AS=INKEYS 

970 IF A$="o" THEN VI=3:SC=0:EN=38:Y1=7: 

OEUF=Z1:FL=24:X=9J0:Y=#0:GOTO 1630 

980 IF A&="n" THEN GOTO 1000 

990 GOTO 960 

1000 END 

1010 REM *+*% DEFINITION DES CARACTERES*+* 

© 1020 SYMBOL AFTER 97 


1030 SYMPOL 97,247,147,157,245,195,249,1 
70,222 

1040 SYMPOL 98,181,255,155,254,183,2938, 1 
87,238 

1050 SYMBOL 99,253,22,18,255,10,251,#:0,2 
48 

1060 SYMPOL 100,7:46,28,244,24,24,2#4,0,0 
1070 SYMPOL 101,0,3,3,3,0,43,43,3 

1080 SYMEOL 10%,0,8,2:8,28,6Z,62,6*,28 
1090 SYMBOL 103,18,36,36,54,255,2393,#93, 
255 

1100 SYMBOL 
255,255 
1110 SYMEQL 
11:0 SYMEOL 
1130 SYMEOL 
99,243 

1140 SYMEOL 
1150 SYMPBOL 
1160 SYMBOL 
227,227 
1170 SYMEOL 
1180 SYMEOL 
37 

1190 SYMEQOL 
Z48, 240 
1200 SYMBOL 114,63,57,55,29,27,14,15,3 
1210 SYMBOL 115,0,7,31,62,3,0,0,0 

1220 SYMEOL 116,255,255,255, 30,255,#55,9 
0,17: 

1230 SYMEOL 
,0 

1240 SYMBOL 
1:50 SYMEOL 
1260 SYMEOL 


104,255,255,255,255,255,255, 


105,0,0,0,1,3,4,8,8 
106,7,31,255,255,255,0,3,15 
107,274,248,252,254,254,31,1 


108,16,16,16,16,16,16,31,24 
109,31,59,63,7,31,15,39,255 
110,251,251,251,251,243,227, 


111,17,31,25,17,17,8,8,4 
112,255,7,255,255,255,255,31 


113,227,2931,255,254,254,252%, 


117,192,248,254,31,240,192,0 


118,0,8,24,63,2:4,68,0,0 
119,0,0,7,454,7,0,0,0 
1:0,0,63,63,21,4%x,21,63,63 
1270 SYMPBOL 121,43,15,14,27,29,55,37,63 
1280 SYMBOL 122,274,240,248,28,14,6,7,93 
1:90 SYMBOL 123,435,23,47,40,16,32,0,0 
1300 RETURN 

1310 REM *#% INITIALISATION *+% 

13:0 SC=0:HI=0 

1330 VI=3:O0EUF=2Z 

1340 EN=38 

1350 FL=Z4 

1360 X=30:Y=20 

1370 Yi=5:F-=2:0 

1380 NOMS=" PERSONNE " 

1390 RETURN 

1400 REM *x% DESSIN TAPLEAU *x+% 


‘1410 CLS:PAPER 4:PEN 1 


1420 LOCATE 1,1:PRINT"'aaaccacaaaccaacaca 
ccacacaccaacacacd" 

1430 LOCATE 1,2:PRINT"'aacaccacacaccacacc 
aacaaacaccacacd" + 

1440 LOCATE 1,3:PRINT"'accaacacccacaacaca 
ccd" 

1450 LOCATE 1,4:PRINT"accacaccaccaccacac 
d'" 

1460 LOCATE 1,5:PRINT"aacacacd" 
1470 FOR T=6 TO Z1:LOCATE 1,T:PRINT"bbbD 
b":NEXT 

1480 LOCATE 1,21:PRINT"hhhhhg9ggggggggggg 
agagggaggogggggggggggh" 

1490 LOCATE 1,22:PRINT'"Hhbhhbhhbhbhhhhbhhhhth 
hhbhhbhbhhhhbhhbhhhhhhhhhh" 

1500 LOCATE 2,23:PRINT"'ENERGIE:xxxxmHmxx 





sw ," 
MORE DE POP PE EE DU DES 


1510 LOCATE #,%43 PRINT" VIE: J':LOCATE 13+ 
PE, 4: PRINT'SCORE : 0" 

1520 LOCATE 2,25:PRINT"'FLECHES:vwu vu vw 
VW vu" 

1530 FOR H=5 TO ZO:LOCATE 38,H:PRINT"b": 

NEXT 

1540 FOR T=5 TO 20 STEP 4:LOCATE 33,T:PR 
INT'"ybbbb":NEXT 

1550 FOR T=6 TO 20 STEP 4:LOCATE 33,T:PR 
INT'"'rbbbD'":NEXT 

1560 FOR T=8 TO Z0O STEP 4:LOCATE 36,7T:PR 
INT'F':NEXT 

1570 LOCATE 32, 4:PRINT"{z" 

1580 FOR T=4 TO Y:LOCATE 31, T:PRINT'e":N 

EXT 

1590 RETURN 

1600 REM #**% MENU *+% 

1610 REM *%#% SCENARIO #%x 

1620 REM %% REGLE DU JEU *#+*% 

1630 CLS:PAPER O:PEN 3:PRINT 

1640 PRINT" 

1650 PRINT" 

1660 PRINT :PRINT:PRINT:PRINT 

1670 PRINT" —1-SCENARIO" : PRINT 

1680 PRINT" —2-REGLE DU JEU":PRINT 
1690 PRINT" —3-DEBUT DU JEU'"3:PRINT 
1700 AS=INKEYS:IF A$="1" THEN GOTO 1740 
1710 IF A$g="Z:" THEN GOTO 2110 

1720 IF 4$="3" THEN GOSUR 1400:GOTO0 140 
1730 GOTO 1700 

1740 CLS:PAPER O:PEN # 

17350 LOCATE 10, 1:PRINT "XXE EUREEEUEORNEENEIEN HE 
x +" 

1760 LOCATE 10,Z2:PRINT'# SCENARIO 
+" 

1770 LOCATE 10,32 PRINT" RER MEET 

xx" 

1780 PRINT:PRINT 

1790 LOCATE 2,5:PRINT" 

S TOMMY,UN MISERABLE" 
1800 LOCATE 3, 6: PRINT'"HUMAIN QUI SURVIT 

DIFFICILEMENT SUR" 

1810 LOCATE 3,7:PRINT'"'LA PLANETE AKRAS. " 


VOUS ETE 


1820 LOCATE 3,9:PRINT"VOUS FAISIEZ UNE T 
RANQUILLE LIAISON" 

1830 LOCATE 3,10:PRINT" 

S VOTRE VAISSEAU" 

1840 LOCATE 3,11:PRINT"'LORSQUE VOUS AVEZ 
ETE PRIS DANS UNE" 

1850 LOCATE 3,1Z:PRINT"'ENORME TEMPETE CO 

SMIQUE QUI VOUS A" 

1860 LOCATE 3,13:PRINT"'ENVOYE SUR CETTE 
PLANETE INCONNUE" 

1870 LOCATE 3,14:PRINT"'ET MYSTERIEUSE. " 
1880 LOCATE 4,16:PRINT"'AYANT ETE LE SEUL 
À SURVIVRE À " 

1890 LOCATE 3,17:PRINT"L’'ATTERISSAGE FOR 
CE. VOUS VOUS ETES" 

1900 LOCATE 3,18:PRINT'ORGANISE TANT BIE 

N QUE MAL POUR " 

1910 LOCATE 3,19:PRINT"SURVIVRE. " 

1920 LOCATE 3,20:PRINT"PAR CHANCE, L’ATMO 

SPHERE DE CETTE " 

1930 LOCATE 3,21:PRINT"PLANETE EST RESPT 


TERRE-PLUTON DAN 


RABLE ET VOUS VOUS" 
1940 LOCATE 3,2Z%:PRINT'ETES INSTALLE SUR 

UNE FALAISE OU" 

1950 LOCATE 3,%3:PRINT"'VIENNENT NICHER D 
ES OISEAUX." 

1960 AS=INKEYS:1IF A$="" THEN 1960 

1970 CLS:PAPER O:PEN 3:PRINT:PRINT:PRINT 
1980 LOCATE 3,4:PRINT"'LES OEUFS SONT VOT 
RE SEULE RESSOURCE. 

1990 LOCATE 3,5:PRINT"'MAIS IL VOUS FAUT 
LA PROTEGER CONTRE" 
000 LOCATE 3,6:PRINT" 
2010 LOCATE 3,7:PRINT"'EN EFFET, CES 
UX QUI VIVENT " 

“020 LOCATE 3,8:PRINT"DANS LES ARBRES SQ 
NT FRIANDS DE CE" 

Z030 LOCATE 3,9:PRINT"MET." 

2040 LOCATE 3,10: PRINT'IL VOUS FAUDRA, PO 
UR SURVIVRE, LES" 

“050 LOCATE 3,11:PRINT"EMPECHER DE VOLER 

LES OEUFS TOUT" 
2060 LOCATE 3,1% 
TRE RESERVE " 
2070 LOCATE 3,13:PRINT"'D'ENERGIE ET VOTR 
E STOCK DE FLECHES." 

#080 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
: PRINT : PRINT : PRINT : PRINT: PRINT 

“090 AS=INKEYS:1IF A$="" THEN 2090 

2100 GOTO 1630 

“110 CLS:PAPER O:PEN 1 

2120 LOCATE 8, 12 PRINT HER EEE DEEE DER DE JEUNE 
ÉLLLIILU 

“130 LOCATE 8,X:PRINT'# REGLE DU 

J E U * 

2140 LOCATE 8,33 PRINT" RERO IEEE 
RE 4 

150 PRINT: et 
160 LOCATE 3, 

DE L'ECRAN " 
170 LOCATE 3,6:PRINT"PLUSIEURS INDICATE 
URS: " 

“180 LOCATE 3,8:PRINT" 
ECHES(vw) QUI SONT" 
5190 LOCATE 3,9:PRINT"AU DEBUT AU NOMBRE 

DE CINQ." 

Z#200 LOCATE 3,11:PRINT" 
NERGIE(HHHxM)," 
“210 LOCATE a" 

NOMBRE DE VIES(3). 

ZZ#0 LOCATE 3,143:PRINT" 

RESERVE D? ENERGIE" 
#230 LOCATE 3,15:PRINT"'VIENT À O,ALORS V 
sos PERDEZ UNE VIE" 

240 LOCATE 3,16:PRINT"'POUR RECONSTITUER 

VOTRE RESERVE IL " 

250 LOCATE 3,17:PRINT"VOUS FAUDRA REVEN 

FE EN HAUT DE LA " 

2260 LOCATE 3,18:PRINT"'FALAISE AVEC VOTR 
E NACELLE." 

2270 LOCATE 3,19:PRINT"VOUS DISPOSEZ DE 

5 FLECHES AU DEBUT. 

280 LOCATE 3,=0:PRINT"A CHAQUE TIR VOUS 

EN PERDEZ UNE." 

“290 LOCATE 3,Z1:PRINT" 
EN AVEZ PLUS, VOUS" 
2300 LOCATE 3,%2:PRINT"NE POUVEZ PLUS TI 

RER. POUR RETROUVER" 


LES PUGBEARS. " 
ANIMA 


: PRINT"'EN SURVEILLANT VO 


: PRINT" VOUS AVEZ,EN BAS 


LE NOMBRE DE FL 


—LAâ RESERVE D’E 
-LE SCORE ET LE 


SI JAMAIS VOTRE 


LORSQUE VOUS N’? 





#310 LOCATE 3,23:PRINT"VOTRE STOCK VOUS 


DEVREZ DESCENDRE EN" 
; LOCATE 3,24: PRINT"'BAS DE LA FALAISE 


AHS=INKEYS:1F A$="" THEN 29330 
CLS: PAPER O:PEN Z:PRINT:PRINT:PRINT 
LOCATE 3,4:PRINT"SI UN BUGPREARS REU 
A ATTEINDRE" 
LOCATE 3,5:PRINT"'LE SOL MALGRE VOTR 
E VIGILANCE, ALORS" 
2370 LOCATE 3,6:PRINT"IL VIENDRA INEXORA 
BLEMENT MANGER UN" 
2380 LOCATE 3,7:PRINT"DES 4 OEUFS (f)QUE 
VOUS PROTEGEZ." ‘ 
2390 LOCATE 3,9:PRINT" 
EARS REUSSISSENT" 
:400 LOCATE 3,10:PRINT" 
NS VOS RANGS, " 
410 LOCATE 3,11:PRINT"VOUS PERDEZ UNE V 
IE." 
2420 LOCATE 3,13:PRINT"VOUS DISPOSEZ DE 
LA TOUCHE (\) POUR" 
2430 LOCATE 3,14:PRINT"MONTER ET DE LA T 
OUCHE (Z) POUR " 
440 LOCATE 3,15:PRINT'"'TIRER." 
2450 LOCATE 3,16:PRINT" TOMMY,JE TE 
SOUHAITE" 
Z460 LOCATE 10,Z2Z:PRINT'"R ON NE CHA 
NCE !" 
2470 AS=INKEYS:1IF A4$="" 


SI JAMAIS 4 PBUGE 


A S’INFILTRER DA 


THEN 470 





Vous-êtes un passionné 
de micro-informatique ? 


ABONNEZ-VOUS 





2480 GOTO 1630 

=:490 CLS:PAPER O:PEN 1 

2500 LOCATE 3,4:PRINT"bbbbbbbbbbbDbbLDDDD 
bbbbbbbDLDDbDDD" 

“510 LOCATE 3,5:PRINT"bbbbbDbDEbbDDDbDDD 
bbbbDbbDbDbbDD" 

#52Z0 FOR T=é TO 1Z2:LOCATE 3,T:PRINT" 

bb e":NEXT 

2530 LOCATE 3,13:PRINT" bb Hh h 
h h h h e" 

540 LOCATE 3,14:PRINT" 
Hh Hh oh h  e" Ô 

“550 LOCATE 3,153:PRINT" h h 
h hh h e" 

#560 LOCATE 3,16: PRINT" h h 
h h h e" 

2570 LOCATE 3,17:PRINT" bb  Hh  h h 
H h h e" 

“580 LOCATE 33,18:PRINT'"'e":LOCATE 32,19: 

PRINT'"ijk":LOCATE 32,20:PRINT'"Imn":LOCAT 

E 3%,2Z21:PRINT"'opq" 

2390 LOCATE 32,22:PRINT"ffff":LOCATE 31, 

29: PRINT"'ffffFFF":LOCATE 30,Z4:PRINT"'ffFF 

ffff" 

“600 LOCATE 29,25:PRINT'fFfFfffFffFffFf" 

610 AS=INKEYS 

Z6X0 IF AS=CHRS(13) THEN Z640 

630 GOTO 610 

640 RETURN 


2650 REM +*% FINI! +*+* 1 








AUTEURS 


Vos propositions seront examinées avec soin, quelle 
que soit la présentation de votre manuscrit. Prenez 
contact avec M. Marcel LEJEUNE au 99 ,52.98.11. 


Collection Poche ou collection plus importante, nos 
collections sont réalisées avec une équipe de colla- 
borateurs compétents, aptes à vous aider et à vous 
conseiller. 


Editions SORACOM 
La Haie du Pan - 35170 BRUZ 
Tél.: 99.52.98.11 
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lité de prendre le contrôle des interruptions. Cette particularité a été mise 


î F AMSTRAD est une machine puissante qui offre à son utilisateur la possibi- 


à profit dans le programme suivant qui permet d'afficher l'heure et 
d'indiquer l’état de la touche CAPS LOCK. 
Surveillez la pendule tout en tapant vos longs listings pour éviter un réveil trop dif- 
ficile le lendemain matin ! Quant à l'indication CAPS, elle pallie à l'absence d’un 
voyant sur la touche CAPS LOCK, tant regretté par les utilisateurs. 
ATTENTION ! Ne faites pas de CAT lorsque cette routine d'interruption est 


‘branchée’. 


routine CAPS + HORLOGE —-- 


FOR n=&A*00 TO &AG4G:READ D$: POKE 


N, VAL ("&"+D#):NEXT 
SAVE 


10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
101:0 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10:00 
10:10 
10:20 
10:30 
10:40 
10:50 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"caps.-bin",b,&A200,&147:END 

Z1,01,00,11,18,4F,CD,66,PB,11 
12,43,2%1,DA, BD,01,02Z,00,ED, RC) 
11,D4A,BD,21,16,A43,01,0%,00,ED 
20O,271,3F,42,06,81,0E,00,11,46 
AZ, CD,EF,PC,21,39,4%,11,01,00 
01,01,00, CD,E9, RC, C9,00,00,00 
00, 00, 00, 00, 00, 00, 00, 00, 00, 00 
DD,E5,F5,C5,D5,E5, CD, 44,4, CD 
59,47,E1,D1,C1,F1,DD,E1,C9,CD 
21,PP,34,44,A3,RC,20,05,34,45 
A3, BD, C8,7D,22,45,A3,FE, 00,28 
U7,21,30, 43, CD, 60, AZ, C9, 7C,3 

44,A3,FE, 00,28, 07,21,25, A3, CD 
BC. AZ, C9, 21, 3B, AS, CD, BC, AZ, C9 
ES,3E,07,CD,P4,PP,E1,F5,7E,FE 
00,:8,06, CD,5A,PE,23,18,F5,F1 
CD,P4,BP,C9,21,24,A3,35, CO, 36 
32,DD,21,1B,A3,DD,34,07,DD,7E 
07,FE, 34,20,50,3E,30,DD,77,07 
DD,34,06,DD,7E,06,FE,36,20,41 
3E,30,DD,77,06,DD,34,04,DD,7E 


10:60 
10:70 
10:80 
10:90 
10300 
10310 
103:0 
10330 
10340 
10350 
10360 
10370 


10 CLG 


04,FE, 34, 20, 32, 3€, 30, DD, 77,04 
DD,34,03,DD,7E,03,FE, 36,20, 23 
3E,30,DD,77,03,DD,34,01,DD,7E 
01,FE, 34,20,14,3E,30,DD,77,01 
DD,34,00, DD, 7E,00,FE, 33, 20,05 
3E,30,DD,77,00,:1,18,A3, CD, 8C 
A2,C9,F3, CD,00,00,FE,C9,10,A:3 
1F,04,01,30,30, 34,30,30,34, 30 
30,00,01,1F,01,01,18,43,41,50 
53,20,18,00,1F,01,01,18,53,48 
49,46,54,18,00,1F,01,01,20,20 
20,20,70, 00, 00,00,00,00, 00, 00 


20 MEMORY &AZ200 
30 LOAD'"CAPS.RIN" 


40 
50 
LA 
60 


FORME 


FOR 1%=1: TO LEN(AS) 


LOCATE 1,3 
LINE INPUT 


"INTRODUISEZ L’HEURE 
00:00:00 #";A# 
:POKE &A315+1%, ASC 


SOUS 


(MID#S(A$,1%,1)):NEXT 


70 
80 
90 
KE 


NEW 
k H&=" LL 
H+2, &A3 


CALL &AZ00 


:H=0H$S: POKE H,8:POKE H+1,816:PO 





EN FINI 


LE —sallenrtt D" 1/4 
AMSTRAD 


500 K OCTETS pour 
1599 FTIC 
J @ LE JASMIN AM5D 


le 2e lecteur double têtes, double densité, 
indispensable pour votre AMSTRAD 
CPC 464 - 664 - 6128 


Ne payez plus vos disquettes 3" 
à 60 F. on trouve des disquettes 
D" 1/4 à moins de 7 F 


Accéder à toute la bibliothèque CP/M éditée sur 5°” 1/4 
grâce aux utilitaires JASMIN disponibles prochainement 


JASMIN AM-5D, le lecteur double têtes Puissant mais Econome 


Plus besoin de retourner la disquette 
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PZSETIILT 


Lecteur 5°’ 1/4 double têtes, double densité.............................. 1599,00 F TTC 
Cable de liaison pour CPC 664... 165,00 F TTC 
Cable de liaison pour CPC 6128................................................. 155,00 F TTC 
Disquettes: LA PME: de Sa EE nSae ie Pr A a 7,00 F TTC 
SPECIAL IMPRIMANTE 

Imprimante spéciale AMSTRAD AM PRINTER..................... 1995,00 F TTC 
Silencieuse - 50 CPS - Qualité courrier - 132 colonnes en contractées 

Super imprimante BROTHER M 1509... 4790,00 F TTC 


Silencieuse - 180 CPS - Super qualité courrier - large chariot (232 colonnes en contractées) 
Option : distributeur automatique feuille à feuille pour M1509..1290,00 F TTC 
Cable CENTRONICS pour AMSTRAD... 175,00 F TTC 


AMSTRAD - CPC 464 - CPC 664 - CPC 6128 et PCW 8256 sont des marques déposées d'AMSTRAD. JASMIN AM-5D est une marque déposée de T.R.A.N. sarl. 
CP/M est une marque déposée de Digital Research 


BON DE COMMANDE à T.R.A.N. sarl - 53, impasse Blériot 
83130 LA GARDE - Tél. : 94.21.19.68 


Veuillez m'envoyer d'URGENCE 





Forfait de Port express en France pour achat de plus de 500 F TTC : 80,00 F TTC - Forfait de Port en France pour achat de moins 250 F : 40,00 F TTC 
Supplément Contre-Remboursement : 120,00 F TTC 





Didier JACOB 


nal en jouant des numéros de téléphone ou des dates 

de naissance. Il vaut parfois mieux se fier au hasard, 
et votre CPC est tout disposé à vous aider à gagner des fortu- 
nes. Ce petit programme de 1018 octets effectue des tirages 
en fonction des mises en vigueur et vous trie les numéros dans 
l'ordre croissant. Si vous gagnez le gros lot, prévenez-nous 
quand même ! 


| l'est bien connu que l’on gagne rarement au loto natio- 


10 CLS:PEN 1:LOCATE 17,1:PRINT'L © T © 
£:0 PEN 3 

30 WINDOW#Z,1,40,12,25 

40 LOCATE 12,9:PRINT"(2,7,28,84,210)F 
90 LOCATE 1%,18:PRINT"'MISE F 

100 LOCATE 16,18:INPUT F 


110 IF F=2 OR F=7 OR F=28 OR F=84 OR F=Z 


10 THEN 170 ELSE 10 
120 1F F=2 THEN N=6 
130 IF F=7 THEN N= 
140 IF F=28 THEN N 
150 IF F=84 THEN N 
160 IF F=210 THEN 

170 LOCATE 11,2: INPU 
D=1 

180 CLS 

190 LOCATE 16,2:PRINT'MISE:"F'"F 
ZO00 DIM T(N) 

“10 DIM C(49) 

Z£:0 FOR X=1 TO 49 

#30 C(X)=0 

240 NEXT 

#50 RANDOMIZE TIME 

“60 B=INT(RND*x49)+1 

“#70 LOCATE 16, 4: PRINT"'JEU"D"/"G 
“80 IF C(R)=1 THEN 250 

290 A=A+I 

300 T(A)=E 

310 C(R)=1 

320 IF AN THEN 260 

330 D=D+1 

340 FOR I=i TO N 

350 FOR JEN TO 1 STEP-1 


:E 
:E 
8: 
9:E 
1 


7 
N= 


+ommi il 


360 IF T(J-1)3#T(J) THEN V=T(J):T(TJ)=T(J-- 


LI: T(J—-1)=V 

370 NEXT J 

380 NEXT I 

390 T=1 

400 LOCATE#HZ,E+C4XT),1:PRINT#E, TT) 
410 T=T+1 

420 IF TEN+1 THEN 400 

430 LOCATERHRZ,16,1Z2:PRINTH#Z,"< TOUCHE 
440 CALL &PERO6 

450 PRINTH2,STRINGS(Z6, CHR$(11)) 
460 IF DG+1 THEN A=0:GOTO 220 

470 CLEAR:GOTO 10 Æ 


"NBRE DE JEUX" ;G: 


220 KEY DEF 44,1,110 





ORGUE 


Ludovic DEBONO 


l'AMSTRAD comme un véritable clavier de piano. La 

5 deuxième rangée de touches (A, S, C.... ]) correspond 

aux notes entières (Do, Ré, MI, etc.) du Do jusqu'au Sol de 

l'octave suivante. Les demi-tons sont disposés sur la rangée 

du dessus. Pour changer d'octave sans interrompre le pro- 

gramme, il suffit de presser une touche du pavé numérique. 

Par exemple, la touche 4 correspond à l’octave 0. On peut donc 

utiliser toute la gamme des tonalités disponibles sur 
l'AMSTRAD. Le tout occupe 936 octets. 


C: petit programme muscial utilise les touches de 


1 *#ORGUE PAR L.DEPONOXX 
2 LES TOUCHES SONT SUR LA RANGEE 2? LES 
DEMI-TONS SONT AU DESSUS 

3 POUR CHANGER D'OCTAVE APPUYEZ SUR LE 
PAVE NUMERIQUE 

10 ON BREAK GOSUB 300) 

30 SPEED KEY 1,1 

30 DIM N(13) 

40 FOR I=1 TO 12:READ A:N(I)=A:NEXT 
50 KEY DEF 69,1,101 

60 KEY DEF 37,1,113 
70 KEY DEF 59,1,10* 

80 KEY DEF 34,1,114 
90 KEY DEF 60,1,103 
100 KEY DEF 36,1,115 
110 KEY DEF 58,1,104 
120 KEY DEF 97.1, 116 
130 KEY DEF 61,1,105 
140 KEY DEF 29,1,117 
150 KEY DEF 53,1,106 
160 KEY DEF 28,1,118 
170 KEY DEF 51,1,107 
180 KEY DEF 17,1,119 V 
190 KEY DEF 52,1, 108 
:00 KEY DEF 19,1,1%0 
210 KEY DEF 43,1, 109 


230 KEY DEF 4%,1,111 
240 KEY DEF 45,1,11% 
250 e$=INKEYS: IF e$="" THEN 250 ELSE e% 
=LOWER$(e$) : 

260 a=ASC(E$):I1F A‘101 OR Aï112Z THEN 320 
£70 NOTE=N(A-100) #240CT 

280 SOUND 1,NOTE,3:GOTO 250 
290 GOTO Z50 

300 SPEED KEY 10,3:END 

310 DATA 478,451,426,402,379,358,338, 319 
.301,:84,768,253 | 
320 IF Aï11# AND 4121 THEN OZ=OCT-1:NOT 
E=N(A-117)#740Z7:SOUND 1,NOTE,3:GOT0 250 
330 IF A“56 AND Aï47 THEN OCT=A-52:GOTO 
E50 

340 GOTO 250 & 






Arentue. 





Le Temple 
du Soleil 








Scénario et graphismes de Laurent KERLOCH 


Effets sonores de Stéphane KERLOCH 


LETEHPILFE 
ble ID LE 


TINTIN UT 


raphismes et cenario 


ffets sonores 


Laurent Kerloch 
CATTOIENT ER TE 





de fouilles où l'on ne trouve que de rares débris de poteries. Vous 


VW: êtes un jeune archéologue qui s'ennuie à mourir sur un chantier 


décidez donc de laisser tomber ce travail monotone et de vivre une 
aventure palpitante loin de notre vieille France. 


Vous arrivez bientôt au Pérou où, 
lors d'une visite du musée archéolo- 
gique de Lima, vous découvrez, 
grâce à un ‘‘quipu’”, l'emplacement 
de la pyramide de Patcharak. Le 
quipu, ce système de cordelettes uti- 
lisé par les Incas pour conserver des 
écrits, vous indique avec précision 
les coordonnées de ce lieu qui a sou- 
levé bien des querelles d'historiens. 
En effet, l'existence de ce temple 
dédié au dieu Patcharak était plus ou 
moins contestée mais grâce à cette 
découverte, vous allez enfin pouvoir 
devenir célèbre. Vous dépensez vos 
derniers billets dans l'acquisition de 
l'équipement nécessaire à votre 
expédition et, accompagné d'un 
guide péruvien, vous entreprenez 
votre difficile marche à travers la 
forêt équatoriale. Assailli par les 
moustiques de jour comme de nuit, 
la semaine que vous passez dans la 
forêt vierge, vous paraît bien déplai- 
sante. Pour comble de malchance, 
votre guide vous abandonne avec un 


équipement restreint au bout de 
quelques jours. Vous continuez 
cependant votre expédition et, le 
lendemain, votre courage estænfin 
récompensé. Au pied d’un volcan, 
vous découvrez un antique édifice en 
assez bon état. Vous gravissez l'es- 
calier de la pyramide à degrés 
jusqu'au petit temple situé à son 
sommet. Vous poussez un cri de joie 
en reconnaissant sur le linteau de la 
porte l'emblême de Patcharak. Vous 
passez la voûte et pénétrez dans le 
sanctuaire quand une lourde grille 
retombe derrière vous. La joie fait 
place au désespoir car le temple ne 
comporte aucune autre issue. Allez- 
vous échouer si près du but ? Cer- 
tes non ! Vous décidez immédiate- 
ment de ressortir de la pyramide, les 
bras chargés d’or et de joyaux, par 
un moyen où par un autre. 


Le programme accepte les phrases 
composées d’un verbe à l'infinitif et 
d'un complément. La simplification 


sous la forme Verbe + Nom n'est pas 
indispensable. || comprend aussi bien 
‘‘’Prendre Diamant’ que ‘’Prendre 
cet énorme Diamant'’. Les seules 
abréviations autorisées sont N, S,E 
et O pour les quatre points cardi- 
naux, | pour Inventaire et Q pour sui- 
cide. N'étant pas Hercule, vous ne 
pouvez porter plus de quatre objets 
à la fois. De plus, il est fortement 
recommandé de rester poli avec l'or- 
dinateur. 

Les quatre flèches en haut à droite 
de l'écran indiquent les différentes 
issues et le carré central la possibi- 
lité de descendre à un niveau infé- 
rieur. Le chronomètre est là pour 
vous rappeler qu'il ne faut pas per- 
dre trop de temps dans vos déci- 
sions car le volcan pourrait fort bien 
se réveiller. 

Mais, n'oubliez pas que les prêtres 
de l’ancien temple avaient pris soin 
de protéger leurs trésors par des piè- 
ges souvent cachés. Aussi, soyez 
prudent | 
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TABLEAU DES VARIABLES 


E$(126) Description des salles. 

D$(126) Issues possibles pour chaque salle. 

O$(49) Noms des objets. 

EO(49) Numéro de la salle où se trouvent 
les objets, si EO(x) = 10 l'objet en 
question se trouve en votre posses- 
sion. 

E Numéro de la salle où on se trouve. 

NT Nombre d'objets transportés. 

VES$ Verbe. 

V$ 4 premières lettres du verbe. 

NO$ Complément. 

HR, MN & SC Heures, minutes et secondes. 

REP$ Réponse. 

F1 à F22 Conditions remplies si égal à O. 


DESCRIPTION TECHNIQUE 


Lignes 11 à 65 Graphismes des deux premiers 
niveaux. 

Lignes 67 à 159  Datas des descriptions des salles, 
des objets, des verbes et des com- 
pléments. 

Lignes 160 à 172 Initialisation. 

Lignes 173 à 192 INPUT artificiel. 

Lignes 193 à 286 Affichage du dessin, des issues, de 
la description de la salle et des 
objets visibles. 

Lignes 287 à 324 Découpage de la phrase. 

Lignes 325 à 332 Inventaire 

Lignes 333 à 390 Messages de réponse. 

Lignes 391 à 474 10 premiers verbes. 

Lignes 475 à 492 6 derniers verbes 

Lignes 528 à 534 Chronomètre 

Lignes 535 à 606 Graphismes des deux derniers 
niveaux. 


— par L.& S. KERLOCH 


PEN 1:SYMPOL AFTER 1 
MODE O 

INK 1,24 

INK 2,6 

INK 3,20 

BORDER © 

INK 0,0 

SPEED INK 12,12 

C=0 

B=20 

FOR A=1 TO 9 

B=P-1 

C=C+1 

LOCATE A,C:PEN 3:PRINT"C" 
LOCATE B,C:PEN Z:PRINT"C" 
SOUND 1,10%B,4,9 

SOUND 4,50+10%C, 4,9 

NEXT À 

LOCATE 10,9:PEN 1:PRINT"P" 
C=0:P=70 

ENV 1,15,-1,10 


30 SOUND 2,500,60,15, 1 


31 FOR A=1 TO 8 
32 P=B-1:C=C+1 
33 LOCATE A,C:PRINT" " 
34 LOCATE B,C:PRINT" " 
35 NEXT À 
36 INK 2,6,0:INK 3,%0,0 
37 INK 7,26:INK 8,25:INK 9,24:INK 10,15: 
INK 11,6:INK 12,7:INK 13,5:INK 14,2 
38 P=70:C-0:D=18 
39 ENT 1,20,-4,1,20,4,1 
40 FOR 4=1 TO 8 
41 PEN (A+6) 
42 B=R-1:C=C+1:D=D-1 
43 LOCATE A,9:PRINT CHR#(133) 
44 LOCATE B,9:PRINT CHR$(138) 
45 LOCATE A,C:PRINT CHR$#(135) 
46 LOCATE A,D:PRINT CHR#(141) 
47 LOCATE P,D:PRINT CHR#(142) 
4B LOCATE B,C:PRINT CHR#(139) 
49 LOCATE 10,C:PRINT CHR#(131) 
50 LOCATE 10,D:PRINT CHR#(140) 
51 SOUND 5,200,10,54+C,0, 1 
NEXT À 
LOCATE 9,8:PRINT STRING#(3, CHR#(131)) 
LOCATE 9,10:PRINT STRING#(3, CHR$ (140) 


C=25:P=17 
56 FOR A=3 TO 7 
57 B=P-1:C=-C-1:PEN 4:INK 4,18 
58 LOCATE A,C:PRINT"PRE" 
59 LOCATE B,C:PRINT'NTE" 
60 LOCATE 10,C:PRINT"SE" 
61 T=INT(RND(1)#150)+1:S=INT(RND(1)#150) 
+1:F=INT(RND(1)#150)+1 
62 SOUND 1,T+50,14,11:SOUND 2,S+50,14,11 
:SOUND 4,F+50,14,11 
63 NEXT À 
64 FOR A=Z5 TO 21 STEP -1 
65 LOCATE 1,A:PRINT STRING#(20," "); 
bb NEXT À 
INK 6,25:PEN 6 
P=>1 
FOR A=i TO 6 
B=P-1 
LOCATE 4,20:PRINT">" 
: LOCATE E,20:PRINT"<" 
SOUND 3,400,3,6+A:SOUND 4,100,3,6+4 
NEXT À 
DIM L#(13%),C(12) 
C(1)=1:C(2)=2:C(3)=3:C(4)=2: C(5)=1:C( 
B)=3:C(7)=2:C(10)=1:C(11)=2:C(12)=3 
77 L$H(1)=CHR$(143)+" "+STRINGS (3, CHRS( 
143))+"  "4STRINGH(3, CHRB(143))+" "+STRI 
NG#$(3,CHR$(143))+" "+CHRS(215)+" "+CHRS( 
214)+" "4+STRINGS(Z, CHR$(143) )+CHRS (215 )+ 
" "4+CHR#(143)+" "+STRINGS (3, CHR$ (143) ) 
78 L$(2)=CHR$(143)+" “+CHR$(143)+" 
"+CHR$S(143)+"  "+CHRS(143)+" "+STRING 
B(3,CHR$S(143))+" "+CHRS(143)+" "+CHRS(14 
3)+" "+CHRS(143)+" "+CHRS(143)+"  " 
79 L$(3)=CHR$S(143)+" M+4STRINGS (Z, CHRS 
(143))+" "+CHRS(143)+"  "+STRINGS(Z, C 
HR#(143))+"  Y+CHRS(143)+" "+CHRS(143)+" 
"+STRINGS(Z, CHRS (143) )+CHRS(212)+" "+CH 
R$(143)+" "4STRINGS(Z, CHR$S(143))+" " 
80 L$(4)=CHR$(143)+" "+CHR$S(143)+" 





"+CHRS(143)+"  "+CHRS(143)+" "+CHRS(1 
43)+" "+CHRS(143)+" "+CHRS(143)+" "+CH 
R$(143)+" "+CHRS(143)+"  " 

81 L$(5)=STRINGS(3,CHR$S (143) )+" 

BI, CHRS(143))+" M+CHR#(143)+"  "+STRI 

NGS(3, CHRS(143))+" "+CHRS(143)+" "+CHRS( 

143)+" "+CHRS(143)+" "+STRINGS (3, CHRS( 

143))+" "+STRINGHS(3, CHR$(143)) 

82 L$(6)="":LHS(7)="" 

83 L$(8)=" "+STRINGH(Z, CHR(143) )+CHRS(E 

15)+" "4&CHRS(143)+" "+CHRS(143)+"  "+CHR 

S(214)+CHRS(143)+CHRS(215)+" "+CHRE(Z14) 

+CHR$S(143)+CHRS(Z15)+" "+CHR$S(143)+" “ 

+STRINGHS(3,CHRS(143))+" "+CHRS(143)+" "+ 

CHR#(143)+" L 

64 L$(9)=" "+CHRS(143)+" "+CHR(143)+" " 

+CHR$S(143)+" "+CHRS(143)+"  "+CHRS (143) + 

" "+CHRS(143)+" "+CHRS(143)+" "+CHRS (1 

43)+" "+CHRS(143)+" "+CHRS(143)+" "+ 

CHR#(143)+" . 

85 L$(10)=" "+CHR$S(143)+" "+CHRS(143)+" 

"+CHRS(143)+" "+CHRS(143)+"  "+CHRS(EZ13) 

+CHR$(143)+CHRS(215)+" "+CHRS(143)+" "+C 

HR#(143)+" "+CHRS(143) +" "+STRINGS(Z,C 

HR (143))+"  "+CHRS(143)+" "+CHRS(143)+" 

86 L$(11)=" "+CHR$S(143)+" "+CHRS(143)+" 

M+CHRS(143)+" "+CHRS(143)+" "+CHRS (14 

3)+" "+CHRS(143)+" "+CHRS(143)+" "+CHRE( 

143)+" "+CHRS(143)+" "+CHR$S(143)+" " 

+CHR$(143)+" " 

97 L$(12)=" "+STRINGH(EZ, CHR$(143) )+CHRS( 

212)4+" M"4ECHRBS(Z13)+CHRS (143) +CHR$S(21%)+" 
M+CHRS(Z13)+CHRS(143)+CHRSCZIZ)+" "+CH 

R$(Z13)+CHRS(143)+CHRS(212)+" "A+STRINGSE( 

3, CHR#S(143))+" "+STRINGH(3, CHR( 143) )+" 

"+CHRS(143)+" "+STRINGS(3,CHRS(143))+" " 

88 FOR A=1 TO ZOOO:NEXT À 

89 FOR 4=1 TO ZO:LOCATE 1,26:PRINT:FOR BR 

#1 TO 1O0:NEXT P,4 

90 INK 1,Z4:INK Z,15:INK 3,6:INK 0,0:PAP 

ER O0 

91 FOR A=1 TO 12:L$#(A)=" 

XT 4 | 

92 MODE 1:TAG:Y=357% 

93 FOR A=1 TO 17 

94 IF A/#=INT(A/*) 

G=-512:H=3% 

95 FOR X=G TO 3Z STEP H 

96 PLOT X,Y,C(A):PRINT L$(A); 

97 NEXT X 

98 Y=Y-16 

99 NEXT 4 

100 TAGOFF 

101 LOCATE 1,18:PEN 3:PRINT"'G"3;:PEN Z:PR 

INT'raphismes "3;:PEN 1:PRINT'et ";:PEN 3 

2: PRINT"S"3;:PEN Z:PRINT'"cenario "3;:PEN 3: 

PRINT": "3:PEN 1:PRINT'L'3:PEN Æ:PRINT'a 

urent "3:PEN 1:PRINT'K'"3:PEN Z:PRINT'erl 

och" 

10% LOCATE 4,XO:PEN 3:PRINT'"'E"3;:PEN Z:PR 

INT'ffets sonores "3:PEN G:PRINT"'s "ssPE 

N 1:PRINT"'S";:PEN Z:PRINT'"tephane "3:PEN 

1: PRINT'K"3;:PEN £:PRINT'erloch" 

103 DATA 478,1,358,1,379,1,358,1,319,1,3 
_01,1,319,1,301,1,268,1 
104 DATA 239,6,201,:,239,6,179,1,2Z01,1,2% 


"+STRING 


"+L$CA)D+" "INE 


THEN G=640:H=-9X ELSE 


39,6,:68,1,301,1 

105 DATA 268,1,301,1,358,6,301,2,358,8,3 
01,4,358,10 

106 FOR W=i TO Z4 

107 ENV 1,%,-1,1,2,1,1,1Z,-1,10 

108 READ 0Q,2Z 

109 SOUND 1,Q,2Z#30,15,1:SOUND 4,Q+*0.99,7Z 
*#30,15,1. 

110 NEXT W 

111 FOR A=1 TO BSO00:NEXT À 

112 MODE 1:INK 1,25:INK Z,7:INK 3,18:POR 
DER 4:PEN 

113 LOCATE 17,3:PRINT"PROLOGUE" 

114 PEN G:LOCATE 16,4:PRINT STRING#(10,C 
HR$#& (208) ) 

115 WINDOW #0,3,38,7,25:CLS:PEN 1 

116 PRINT" Vous etes un jeune arche 
oloqgueplein de talent qui en a assez 
derecoller des morceaux de poteries.Au 
ssi decidez-vous de partir cher-cher 1 
a richesse et la gloire enAmerique cd 
u Sud." 

117 PRINT" Au cours d’une visite du 
Museearcheologique de Lima, vous rema 
r-quez dans une vitrine un ’quipu’ quigr 
ace a votre parfaite connaissancede ce 
systeme de cordelettes utilisepar les in 
cas, vous indique l’empla-"; 

118 PRINT'"'cement de la fabuleuse 
de dePatcharak, recherchee 
enlongtemps par les 

nde entier." 

119 IF INKEY$="" THEN 119 ELSE CLS 

120 PRINT" Vous achetez immedia 
tement l’equipement necessaire a vot 

ree*pedition et accompagne d’un qguide,vo 

us commencez votre quete de la Py-ramide 
de Patcharak. Les indicationsfournies p 

ar le quipu etant relati-"; 

121 PRINT'vement precises, vous penetrez 

dansl’epaisse jungle equatoriale." 

122 PRINT" À mesure que vous  progr 

essez,votre marche devient de plus en pl 

usdifficile et en vous reveillant Uunma 
tin, vous constatez que votre qgui-de « d 

ecide de rebrousser chemin etvous a lai 

sse seul avec quelques ba-"; 

1:23 PRINT'gages. Vous ne desarmez pas po 

ur au-tant et reprenez votre exploration 


pyrami 
depuis bi 
explorateurs duMo 


124 LOCATE 22,19:PEN Z:PRINT'PRONNE CHANC 
E 1 LL 
125 IF INKEY$="" THEN 125 ELSE RUN" '!temp 
lei" 


SONT UHR 


10 MODE 1:INK 1,4: GOSUR 567:RUN 160 

11 INK 1,2Z4:INK O0,0:PORDER 1:PAPER 0O:PEN 
1: INK 2Z,15:INK 3,276 

12 MODE 1:PRINT:ORIGIN 0,386:PLOT -4,0,1 





:FOR A=1 TO 40:DRAWR 17,0:DRAWR O,8:DRAUW 
R -4,0:DRAWR O,-4:DRAWR -4,D:DRAWR 0,8:D 
RAWR 12,0:DRAWR O,-1Z:NEXT A:ORIGIN 0,0: 
PLOT -4,0,1:FOR 4=1 TO 40:DRAWR 1%,0:DRA 
WR O,B:DRAWR -4,0:DRAWR O,-4:DRAWR -4,0: 
DRAWR 0,8 
13 DRAWR 17,0:DRAWR 0,-1#:NEXT A:WINDOW 
#0,1,40,20,24:WINDON #1,1,40,2,19:ORIGIN 
0,96:PLOT 0,2,1:DRAN 640,%,1:PLOT Z00,8 
,Z:DRAUR 240,0,2:PLOT %00,48,2:P=%740:FOR 
A=1 TO 6:PLOT 180+(A%20), _324(A%40),2:D 
RAUR 0,40, Z:DRAUWR P,0,2:DRAUR 0,-40,2:E= 
B-4O0:NEXT À 
14 P=64:FOR A=1 TO ZO:PLOT 287+4,-2+(A%1 
0),Z:DRAUR 0,10,2:DRAUR B,0,Z:DRAWR O,-1 
O,Z:B=P-P:NEXT A:PLOT 308,%08,2:DRAWR 0, 
20,2:DRAUR 4,0,2:DRAWR 0,-20,2:DRAWR 16, 
O,Z:DRAWR 0,20,2:DRAWR 4,0,2:DRAWR 0,-20 
,2:PLOTR 4,20, 2:DRAWR 0,4,2:DRAWR -3%,0, 
S:DRAWR 0,-4,7 
15 DRAWR 32,0,2:PLOT 180,6,1:DRAWR -4,20 
,1:PLOTR 4,0,1:DRAWR 4,-20,1:PLOTR -13,% 
2,3:GOSUP 17:PLOT 196,6,1:DRAWR 4,24,1:P 
LOTR 4,0,1:DRAWR —-4,-24,1:PLOTR -4,26,33: 
GOSUR 17:PLOT 456,6,1:DRAWR 4,20, 1:PLOTR 
4,0,1:DRAWR -4,-20, 1:PLOTR 4,22, 3:GOSU 
B 17 
16 PLOT 286,210,1:DRAWR -4,14:PLOTR 4,0: 
DRAUR 4,-14:PLOTR -10,16,3:GOSUR 17:PLOT 
352,210, 1:DRAWR 2,16:PLOTR 4,0:DRAWR -Z 
,-16:PLOTR -6,18:GOSUR 17:GO0T0 18 
17 PLOTR Z,-2,3:DRAWR 6,0,3:DRAUR 4,4,3: 
DRAWR O,6,3:DRAWR -4,4,3:DRAWR -8,0,3:DR 


AUR -4,-4,3:DRAWR 0,-6,3:PLOTR 4,0,3:DRA 


WR 8,0,3:PLOTR -2,4,3:PLOTR -6,0,3:RETUR 

N 

18 CLS:PRINT'"'Apres avoir longuement chem 

ine dans l’epaisse jungle equatoriale, v 

ous decouvrezderriere un rideau de verdu 

re, un spectacle grandiose la pyramide 
du Dieu So- leil Patcharak.'":FOR A4=1i TO 


4: GOSUR RME REA A: RETURN 


3,7:PLOT O, à, 2:DRAUR 60, "LO,2:DRAUR 0,160 
2: DRANR -60,60,:PLOTR 60, -60,Z:DRAUR 8 
0,0,2Z:DRAUWR 0,-160,2:DRAUR -80,0,2:PLOTR 
80,0,Z2:DRAWR 20,20,Z:DRAWR 0, 120, 2: DRAW 
R -20,20,2:PLOT 640,8,2:DRAWR -60, 60, 2:D 
RAWR 0,160, 7 
20 DRAUWR 60,60,2:PLOTR -60,-60,Z:DRAWR — 
80,0,2:DRAUR 0,-160,2Z:DRAWR 80,0,2Z:PLOTR 
-80,0,2:DRAWR -20,20,2:PLOTR 20,140,2:D 
RAUR -20,-20,2:DRAUR 0,-120,2:DRAWR -80, 
Q,Z:PLOTR 0,-8,1:DRAWR 0,Z8:DRAWR -160,0 
:DRAWUR 0,-28:DRAWR 160,0:PLOTR -8,8:DRAW 
R O0,1%:P=0 
1 DRAWUR -144,0:DRAWR 0,-1%:DRAWR 144,0: 
PLOT 739.88.2:DRAWR -79.0,2:PLOTR 0,120, 
:DRAWR 140,0,Z:PLOTR 40,0,%:DRAWR 140,0 
,2:PLOTR -160, 20, 3:DRAUR 20, -20, 3: DRAWR 
20,-40,3:DRAWR -20,-40:DRAWR -20,-20:DRA 
WR -20,20::DRAWR -20,40:DRAWR 20, 40:DRAW 
R 20,20 
2 DRAWUR -12,-Z20:DRAWR -8B,-40:DRAWR -20, 
O:PLOTR 20,0:DRAWR 8,-40:DRAWR 12,-20:DR 
AUR 1Z,Z0:DRAWR 8,40:DRAWR -8,40:DRAWR — 
12,Z20:DRAWR O,-ZO:DRAWR 12,-40:DRAWR -1% 


»-4O:DRAWR -15,40:DRAWR 12,40:PLOTR 12,0 
:DRAWR 8,0:PLOTR O,-40:DRAWR 20,0:PLOTR 
-20,-40 
23 DRAWUR -8,0:PLOTR -24,0:DRAWR -8,0:PLO 
TR O,80:DRAWR 8,0:PLOTR 12,-80:DRAUR 0O,— 
20: RETURN 
4 INK 3,25,0:SPEED INK 2, 1: RETURN 
25 PLOT 360,68,2:DRAWR 40,-60:DRAWR —160) 
,0:DRAUR 40,60:DRAWR 80,0:DRAWR 0,-60:PL 
OTR -80,0:DRAUWR 0, 60 
Z6 RETURN 
27 CLS #1:INK 3,15:INK 2,23:PLOT 0,8,2:D 
RAWR 80,80:DRAWR 0,120:DRAWR -80,80:PLOT 
R 80,-80:DRAUR 480,0:DRAWR 80,80:PLOTR — 
80,-80:DRAWR 0,-1%0:DRAWR 80,-80:PLOTR — 
80,80:DRAWR -480,0:PLOTR -20,-20:DRAWR 0 
, 120: DRAWUR -40,Z0:DRAUR 0,-180:PLOTR 0,4 
O:DRAWR 40,0 
28 PLOTR 560,0:DRAWR -40,0:DRAWR 0,120:D 
RAWR 40,20:DRAWR 0,-180:PLOTR -260,240:D 
RAWR O,-40:DRAWR -80,0:DRAWR -20, 40: DRAW 
R 120,0:DRAWR -20,-40:PLOTR -80,0:DRAUR 
0,40: CLS:PLOT 0,2, 1:DRAW 640,2, 1: PLOT 16 
0,88,3:DRAWR 0,80:DRAWR 20,20:DRAWR 40,0 
:DRAWR 20,-20 
39 DRAUWR 0,-80:DRAWR -80,0:PLOTR 8,8:DRA 
WR O,7#:DRAWR 12,1Z:DRAWR 40,0:DRAWR 12 
—1Z2:DRAUR O,-72:DRAWR 64,0: PLOTR 52,28, 
1:DRAWR 0,6:DRAWR 4,0:DRAUR O,-6:DRAUR — 
4,0:PLOT 27,30,0:DRAWR 38,38,0:PLOT 618, 
30,0:DRAWR -38,38,0 
30 RETURN 
31 INK 3,15:PLOT 0,2,1:DRAW 640,2, 1:PLOT 
0,8,2:DRAUWR 80,80:DRAWR O,120:DRAWR -80) 
,80:PLOTR 80,-B0:DRAWR 480,0:DRAWR 80,80 
:PLOTR -80,-80:DRAUR O,-120:DRAUR 80, -80 
:DRAWR -80,60:DRAWR -180,0:DRAWR O,1%0:D 
RAWR -20,-20:DRAWR -80,0:DRAWR -20, 20 :PL. 
OTR 20,-20 
32 DRAUWUR O,-80:DRAWR -20,-20:DRAWR 0, 170 
:PLOT 20,6B8:DRAWR 40,0:DRAUR 0, 120 :DRAWR 
-40,20:DRAWR O,-180:PLOTR Z,2,0:DRAWR 3 
6,36,0:PLOT 80,88,2:DRAUR 180,0:PLOTR 10 
0,20: DRAWR 0,80:PLOTR 40,-40:DRAUR 4,0:D 
RAUR O,-40:DRAUR -4,0:DRAUR O,40:PLOTR © 
-20, 1 
33 DRAWR 20,14,1:PLOT 360,108,2:DRAWR 20 
, 20, 2: RETURN 
34 FOR 4=290 TO 350 STEP 10:PLOT À,108,3 
:DRAUR 0,7B,3:NEXT A:FOR A=118 TO 178 ST 
EP ZO:PLOT 282,A,3:DRAUR 76,0,3:NEXT A:R 
ETURN 
35 FOR 4=108 TO 168:PLOT 
6,0,0:NEXT A:RETURN 
36 INK 3,18:PLOT 0,2,1:DRAWN 640,2, 1:PLOT 
0,8,2:DRAWR 60, 60:DRAWR 0,160:DRAWR -60) 
,60:PLOTR 60,-60:DRAWNR 360,0:DRAWR 20,20 
:DRAWR 80,0:DRAWR O,-200:DRAWR -80,0:DRA 
WR -20,20:DRAUR -160, 0 
37 INK 3,18:PLOT O,2,1:DRAW 640,2, 1:PLOT 
0,8,Z2:DRAWR 60,60:DRAWR O,160:DRAWR —-60 
» 60: PLOTR 60,-60:DRAWR 360,0:DRAUR 20,20 
:DRAUR 80,0:DRAWR O,-200:DRAWR -80,0:DRA 
WR -20,20:DRAWR -160,0 
38 DRAWR -20,20:DRAWR O,100:DRAWR -80, 0: 
DRAWR O,-100:DRAWR -20,-20:DRAWR -80,0:P 
LOTR 80,0:DRAWR 0O,140:DRAWR 120,0:DRAWR 


28Z,A,0:DRAWR 7 





0,-140:PLOTR 0,140:DRAWR -20,-Z0:PLOTR — 
80,0:DRAWR -20,2Z0:PLOTR 280,2Z0:DRAWR 0O,- 
160:PLOTR 20,-20:DRAWR 0,200:PLOTR 4,-20 
:DRAWR 0,-160 
39 DRAWUR 72,0:DRAWR O,160:DRAUR -72,0:PL 
OTR 76,0:DRAWR 60,0:DRAWR 60,60:DRAUR -6 
O,-60:DRAWR 0,-160:DRAWR 60,-60:PLOTR -6 
0,60:DRAWR —-60, 0: RETURN 
40 FOR A=514 TO 446 STEP -2:PLOT A-%,70, 
Z:DRAUR 0,156,2:PLOT A,70,0:DRAUR 0,156, 
O:NEXT A:RETURN 
41 PLOT C,D,3:DRAWR -12,9B:DRAUR 1Z,2Z0:P 
LOTR 40,0:DRAWR 12Z,-Z0:DRAWR -12,-98:PLO 
TR -40,118,2:DRAWR 8,20:DRAWR 24,0:DRAWR 
8,-20:DRAWR -12,-12:DRAWR 0,2Z6:DRAWR -1 
6,D:DRAWR 0,-Z6:DRAWR -12,1Z:PLOTR 12,-1 
2:DRAWR 16,0:PLOTR -8,-2,:3:DRAWR 0,-104, 
_ 
42 PLOTR -2,20,1:DRAWR 4,0:PLOTR -4,20:D 
RAUR 4,0:PLOTR -4,20:DRAWR 4,0:PLOTR -4, 
Z20:DRAUWR 4,0:PLOTR -4,20:DRAWR 4,0:PLOT 
C+16,D+112,1:DRAUR 8,0:PLOTR O,10:PLOTR 
—8,0:PLOT C+8,D+138,1:DRAWR 24,0:DRAWR 0 
,6:DRAUR -24,0:DRAWR 0,-6:FO0R A=2 TO 14 
STEP 4 
43 PLOT (C+20+A),D+144,3:DRAWR 0,6:PLOT 
(C+20)-A,D+144:DRAWR O,6:NEXT A:RETURN 
44 CLS:CLS #1:INK 3,6:PLOT 0,2,1:DRAW 64 
0,2,1:PLOT 0,8,2:DRAWR 80,80:DRAUWR 0, 120 
:DRAWR -80,80:PLOTR 80,-80:DRAWR 160,0:P 
LOTR 0,Z0:DRAUR 20,0:DRAWR 20,-20:DRAUR 
80,0:DRAWR 20,20:DRAWR 20,0:DRAWR 0,-160 
:DRAUR -160,0:DRAWR O,160:PLOTR 20,0:DRA 
WR O,-120 
45 DRAWR 120,0:DRAWR 0,120:PLOTR -20,-20 
:DRAUR 0,-80:DRAWR -80,0:DRAWR O,80:PLOT 
R O,-B0:DRAWR -20,-20:PLOTR 120, 0:DRAUR 
-20,20:PLOTR 40,80:DRAWR 160,0:DRAWR 80, 
B0:PLOTR -80,-B80:DRAWR 0,-1Z 0: DRAUR 80, - 
80:PLOTR -80,80:DRAWR -160,0 
“6 PLOT 80,88, 2: DRAUR 160,0: RETURN 
47 PLOT 20,28,2:DRAWR 0,180:DRAWR 40,-20 
:DRAUR 0,-1Z0:DRAWR -40,0:PLOT 22,30,0:D 
RAUR 36,36, 0:RETURN 
48 INK 2,23:CLS8:CLS #1:INK 3,15:PLOT O, 
,1:DRAW 640,2,1:PLOT 0,8,Z:DRAUR 60,60: D 
RAWR 0,16G:DRAWR -60,60:PLOTR 60,-60D:DRA 
WR 520,0:DRAWR 60,60:PLOTR -60, -60:DRAWR 
0,-160:DRAWR 60,-60:PLOTR -60, 60: DRAWR 
_-200,0:PLOTR 0,40:DRAUR 0,-60:DRAWR -120 
,0:DRAUR 0,60 
49 DRAWUR 170,0:DRAWR -20,Z0:DRAWR -80,0: 
DRAWR -20,-20:PLOT 20,48:DRAWR 20, 0:DRAW 
R O.1%0:DRAWR -20,20:DRAWR 0,-160:PLOTR 
2,2,0:DRAWR 16,16,0:PLOT 60,68,2Z:DRAUR 2 
00, 0,  : RETURN 
50 INK 3,8:INK 2,2:PLOT 0,2,1:DRAWN 640,2 
,1:PLOT 0,8,2:DRAWR 40, 40: DRAUR 80,0:DRA 
WR 40,40:DRAWR 0, 20: DRAWR _40, -40: DRAUR 
-80,0:DRAWR 0,-20:PLOTR 80,0:DRAUR 0, 20: 
PLOTR -80,0:DRAWR 40,40:DRAWR 16,0:PLOTR 
-16,0:DRAWR 0,100:DRAWR -80, 80 
‘51 PLOTR 80,-80:DRAUR 480,0:DRAWR 80,80: 
PLOTR -80,-80:DRAWR 0,-120:DRAWR -400,0: 
. PLOTR 0,20:DRAWR -36,0:PLOT 640,8:DRAUR 
-80,80:PLOTR 60,-Z0:DRAWR -40,0:DRAWR 0, 
_ 120:DRAWR 40,203DRAWR 0,-180:PLOTR -2,2, 
O:DRAWR -36,36,0 


52 PLOT 100,76,1:3DRAWR 2,24,13:PLOTR 8,0: 
DRAWR Z,-24:DRAWR 12,0:DRAWR -4,4:DRAWR 
-2,20:PLOTR -8,-24:PLOT 100,76:DRAWR 1%, 
O:DRAWR -4,4:DRAWR 0,8:PLOT 92,100,3:DRA 
WR B,Z2B8:DRAUR 20,0,Z2:DRAWR 8,-28,3:DRAWR 
-36,0,3:PLOTR 8,30,1:DRAWR 0,36:DRAWR 4 
,4:PLOTR 12,0 
53 DRAWR 4,-4:DRAUR 0,-16,1:DRAWR —10,14 
:DRAWR -4,-4:DRAWR 10,-14:DRAWR 16,0:DRA 
WR 4,4:DRAWR -16,0:PLOTR 0,-4:DRAWR O,-1 
6:PLOT 100,190,3:DRAWR 20,0:DRAWR 0,14:D 
RAWR -20,-14:PLOT 100,188,Z:DRAWR -4,-16 
:DRAWR 16,0:DRAUR 4,16:PLOTR 4,0, 1 :DRAWR 
0,-2 
54 DRAWR 6,-6:DRAWR -4,0:DRAWR 0,-6:DRAW 
R -4,0:RETURN 
55 CLS #1:INK 3,15:PLOT 0,2,1:DRAW 640,2 
1:INK 2,23:PLOT 0,8,2:DRAWR 20,20:DRAWR 
0,Z40:DRAUR -20,20:PLOT 20,28,2:DRAUR 6 
0,0:DRAUR 0,240:DRAWR -60,0:PLOTR 60,0:D 
RAWR 40,-40:DRAUR O,-160:DRAWR -40,-40:P 
LOTR 40,40:DRAWR 120,0:PLOTR -120, 160:DR 
AWR 120,0 
56 PLOTR 20,20,1:DRAWR 20,-Z0:DRAWR O,-1 
60:DRAWR -20,-20:DRAWR -20,0:DRAUR 0, 200 
:DRAWR 20,0:DRAWR 0,-200:PLOTR 20,Z0:DRA 
WR 80,0:PLOTR 20,-20:DRAWR 20,0:DRAUR D, 
Z00:DRAWR -20,0:DRAWR 0,-200:DRAWR -20,2 
O:DRAWR 0,160:DRAWR 20,20:PLOTR -Z0,-20: 
DRAWR -80,0 
57 PLOTR 0,-40:DRAWR 80,0,3:DRAWR 0,-80, 
3:DRAWR -80,0,3:DRAWR O,80:DRAWR 20,-20: 
DRAWR 40,0:DRAWR 20,20:PLOTR -20,-20:DRA 
WR O,-40:DRAWR 20,-20:PLOTR -20, 20: DRAWR 
-40,0:DRAUR -20,-20:PLOTR 20,20:DRAUR 0 
,40:PLOTR 102,60,2Z:DRAWR 118,0:DRAWR 40, 
40:DRAWR 60,0 
58 DRAWR 20,20:PLOTR -Z0,-Z0:DRAWR O,-24 
O:DRAWR 20,-20:PLOTR -20,2%0:DRAWR -60,0: 
DRAWR 0,240:PLOTR O,-240:DRAWR -40,40:DR 
AWR 0,160:PLOTR 0,-160:DRAWR -120,0:PLOT 
316,148,3:DRAWR 4,4:DRAWR 4,-4:DRAWR -4 
,—4:DRAWR -4,4:RETURN 
59 CLS #1:CLS:INK 3,7:PLOT 0,2,1:DRAW 64 
0,2,1:PLOT 0,8,2:DRAWR 40,40:DRAWR 0,200 
:DRAWR -40,40:PLOTR 40,-40:DRAWR 60,0:DR 
AWR 40,-40:DRAWR 420,0:DRAWR 80,80:PLOT 
R -80,-80:DRAWR 0,-120:DRAWR 80,-80:PLOT 
R -20,20:DRAUR 0, 180:DRAWR -40, -20 : DRAWR 
0,-1270 
60 DRAWR 40,0:PLOTR -2,-38,0:DRAWR -36,3 
6,0:PLOT 40,48,2:DRAWR 60,0:DRAWR 0,200: 
PLOTR 40,-40:DRAWR 0,-120:DRAWR -40,-40: 
PLOTR 40,40:DRAWR 140,0:DRAWR 0, 100:DRAW 
R 100,0:DRAWR 0,-100:DRAWR -Z0, 20: DRAWR 
0,60:DRAWR 20,2Z0:PLOTR -20,-20:DRAUR -60 


(e) 

L 

61 DRÔWR -?0,70:PLOTR %0,-Z20:DRAUR 0, - 
:DRAWR —-20,-20:PLOT 380,88,2:DRAUR 180, - 


:PLOT 160.48, Z:DRAWR 0,-20:DRAWR 80,0:DR 
AWR 20,Z0:DRAUR 0,20:DRAWR -20, -20:DRAWR 
-80,0:DRAUWR 20,20:DRAWR 80,0:PLOTR -20, 
-Z20:DRAWR O,-20:RETURN 
62 CLS #1:INK Z,Z2:PLOT 0,2,1:DRAW 640,2, 
1:PLOT 0,8,Z2:DRAWR 60,60:DRAWR 0,60 :DRAW 
R 40,%0:DRAWR 0,80:DRAWR —-100,40:PLOTR 1 
00,-40:DRAWR 440,0:DRAWR 100,40:DRAWR -1 
O0,-40:DRAWR O,-80:DRAWR 40,-Z0:DRAUR 0, 


—6Q0:DRAWR 60,-60:PLOTR —-60,60:DRAWR —-2Z00 
, D: DRAUWR 0,60 
63 DRAWR :00,0:PLOTR -1#,-1%:DRAWR 0,-36 
‘:DRAWR -176,0:DRAWR 0.36:DRAWR 176.0:PLO 
TR -28,32:DRAWR -180,0:DRAWR 0, -60 : DRAWR 
20,-20:DRAUR 0,60:DRAWR —-20,20:PLOTR -# 
60,0:DRAWR 180,0:DRAWR 0,-60:DRAWR -20,- 
Z0:DRAWR 0,60:DRAWR 20,Z0:PLOTR -2%0, -20 
:DRAWR 200,0 
64 DRAWR 0,-60:DRAWR -Z00,0:PLOTR 12,1%: 
DRAUR 0,36:DRAWR 176,0:DRAUWR 0, -36:DRAWR 
-176,0:PLOTR 188,-12:DRÔWR 120,0:PLOTR 
-20,=0:DRAWR -80,0:PLOTR 100,60, 1 : GOSUR 
65:PLOTR -180,0,1:GOSUR 65 :RETURN 
645 DRAWR 20,40,1:DRAWR -8,2Z8:DRAWR 1#,8: 
DRAWR 12,0:DRAWR 12,-8:DRAUR -8,-2:8: DRAW 
R Z0,-40:DRAWR -Z0,-8:DRAWR —-20,0: DRAWR 
-20,8:PLOTR 20,-8:DRAUR 8,48:DRAUR -4,36 
:PLOTR 12,0:DRAWR -4,-36:DRAUR 8,-48: PLO 
TR -40,8:RETURN 
66 END 
67 DATA 1,"dans le temple au sommet de 1 
a pyramide","" 
68 DATA 3*,"dans une piece obscure",Es 
69 DATA 33,"dans un etroit couloir",OoU 
70 DATA 34,'"dans une petite salle",SU 
71 DATA 39,"face a un mur richement scul 
pte",SU 
72 DATA 40,"dans une salle eclairee par 
des lampes de cristal",SUDE 
73 DATA 41i,"dans une salle poussiereuse" 
; NO 
74 DATA 46,"dans 
75 DATA 47,"dans 
76 DATA 48,"dans 
77 DATA 6*%,"dans 
78 DATA 683,"dans 
79 DATA 6#4,"dans 
at" ,ESQU 
80 DATA 


un vaste hall'",NOES 

un corridor",ESOU 

une piece humide",OQU 

un cul-de-sac",ES 

un long couloir",ESOU 
une piece en mauvais et 


un ancien temple",ESOU 
le sanctuaire sacre",OU 


65,"dans 
81 DATA 66,"dans 
SU 

82 DATA 67,"dans 


une sombre salle",ESSU 
83 DATA un caveau humide",OUSUD 
E 

4 DATA 

DE 

85 DATA 
SOU 

86 DATA 

87 DATA 
eraire",SU 
88 DATA 73,"dans 
ures", NOSUDE 

89 DATA 74,"enferme dans une etroite sal 
le",*x#xx 

30 DATA 75,"dans un corridor en pente",N 
OSU 

91 DATA 76,"devant une voute decoree de 
riches etoffes",NOSU 

92 DATA 77,"dans la salle de la couronne 
",ES 

93 DATA 78,"dans 
OU 

94 DATA 79,"dans 
95 DATA 80,"dans 
96 DATA 81,"dans 


68,"dans 
"dans un couloir obscur",ESSU 
"face a un panneau sculpte",E 


un tombeau", OU 
une antique chambre fun 


"dans 
," dans 


un couloir orne de tent 


un couloir etroit",SUES 


un grand vestibule",OU 
un etroit passage",NOES 
une sombre salle",OUSU 


77 DATA 82,'"devant deux panneaux de bois 
LL SU 

Li 
98 DATA 83,"dans une piece eclairee par 
une lampe de cristal'",NOES 
99 DATA 84,"dans une longue galerie",ES0 
U 
100 


UDE 
101 


DATA 85,"dans un vaste hall",NOSUESO 


DATA 86,'"au bas de l'escalier ferme 
par Une grille de bronze", GUEBOU 

10 DATA 87,"dans un couloir humide et g 
lissant",ESOUDE 

103 DATA 88,"dans un long corridor" ,ESOoU 
104 DATA 89,"dans une des anciennes sall 
es du temple", NOSUOUDE 

1035 DATA 90,"pres du passage secret",SUE 
S 
106 
107 
ree 
108 


DATA 91,"dans une vaste salle'",ES 

DATA 9*,'"dans une grande piece eclai 
par des lampes de cristal",NOSUESOU 

DATA 93,"a un carrefour",NOSUESOU 
109 DATA 94,"dans un long couloir'",#x### 
110 DATA 95,"dans une petite piece pouss 
iereuse",ESOU 

111 DATA 96,"dans 
OU 

11Z DATA 97,"dans 
decore",NOSU 

113 DATA 98,"dans l’ancienne salle du tr 
esor des pretres'",Es 

114 DATA 99,"dans un large couloir",NOSU 
OUDE 

115 DATA 100,"dans une grande salle de 1 
a pyramide",NO 

116 DATA 101,'"a l’entree des tombeaux de 
s pretres",SUOU 

117 DATA 10*,"dans la salle du tresor'",+ 
CES 

118 DATA 103,'"dans 
ire", NOSUDE 

119 DATA 104,"dans 
re",NOES 

120 DATA 105,"dans la 
tre !",QOU 

121 DATA 106,"dans un 
la pyramide" ,NOESDE 
122 DATA 107,"dans un 

reux",OU 

123 DATA 108,"dans la 

x“ tombeaux:",NOES 

124 DATA 109,"dans une salle aux murs de 
quarz rose", OU 

125 DATA 110,"enferme dans un caveau hum 
ide",*##% 

126 DATA 111,"au fond d’une fosse infest 

ee de serpents",xkxx 4 

127 DATA 125,"au fond d’un puit",ES 

128 DATA 176,"dans une etroite et sombre 
galerie",OU 

129 DATA 119,"dans une vaste antichambre 

", SUNO 

130 DATA 11*#,"dans le sanctuaire sacre d: 

u temple, face a la statue du dieu",SU 
131 DATA ALLEDESCMONTOUVRPRENSAISPOSEDEP 

OJETEMETTALLUTOURBAISLEVEAPPUPOUSENFODEM 

OLTREFROT 

132 DATA 0001000200030004000500050006000 


une sombre salle",NOSU 


un vestibule richement 


un vestibule mal ecla 
l’antichambre funerai 
tombe du grand pre 
couloir au sud de 

cul-de-sac poussie 


galerie d’acces au 





60006000700080009001000110012:00130014001 
400150016 

133 DATA DIAMLEVIGRILHERSPLACTORCCLEFSTA 
TRRASPAGUPIOCCARNSQUEMOMI PENDSOCLFORMEBOT 
TPAPIVASEPERLLAMPSARCERLOCPTERSCARCOFFROU 
TPROUGCAPESCORCOURSCEPAUTECASQCRANFOSSTIS 
SROURCUIRRUBITIPBIURNECOQUPOIGCARTPIPESAR 
RTUNISOLEPLATARGEIDOLNORDSUD EST OUES 
134 DATA 00010002000300030004000500086000 
70008000900100011001200130014001500i4600i 
700180019007:000210022002300:300240025002 
60027002800:900300031003:00330034003500:3 
6003700370038003900400041004200430044004 
5004600470048004800490050005 1 00520053 
135 REM 

136 DATA "Un diamant rose",1i,"Un levier" 
,48 

137 DATA "Une herse",48,"Un placard ferm 
e",4i 

138 DATA "Une torche",34,"Une grosse cle 
ff", 33 

139 DATA "Une statue",32,"",,"Une bague" 
.46 

140 DATA "Une pioche",107,"Un carnet",10 


DATA "Un squelette",107,"Une momie", 


: DATA "Un pendentif",72Z,"Un socle",0 
DATA "Une formule",0 

- DATA "Une boite",95,"Un papier",95 
DATA "Un vase vide",91i,"Des perles", 


DATA "Une lampe",0,"Un sarcophage", i 


DATA "Un grand bloc de pierre",100," 
Un scarabee",0 | 
148 DATA "Un grand coffre",109,"Un bouto 
n",109 
149 DATA "Des bougies",65,"Une cape",66 
150 DATA "Un scorpion",80,"Une couronne" 
77 
1531 DATA "Un sceptre",98,"Un autel",65 
152 DATA "Un casque",71,"Deux cranes",71 
;"Une fosse",0 . 
153 DATA "Un morceau de tissu",6%,"Une b 
ourse de cuir'",64 
154 DATA "Un rubis",108,"Un tibia",95 
135 DATA "Une urne",97,"Un coquillage",7 
6 
1956 DATA "Un poignard",92,"Une cartouchi 
ere",96 
157 DATA "Une pipe",95,"Un sabre",8li 
158 DATA "Une tunique",78,"Un soleil d’o 
r",101 
159 DATA "Un plat d’argent",90,"Une idol 
e",67 
160 GOSUR 11:GOSUR 167 
161 E=i:HR=14:EVERY 48 GOSUR 528:GOTO0 19 
3 
167 DIM E$(126),D#$(126) 
163 RESTORE 67 
164 FOR I=1 TO 64 
165 READ CH,ES$(CH), D$(CH) 
166 NEXT I 
167 READ VI$,V2#,01$,02% 
168 DIM O0$(49),E0(49) 
169 FOR I=i TO 49 
170 READ O$(I),EO0(1I) 


‘—1) :LOCATE 1B8+LENCREP$),HA: PRINT" 


171 NEXT I:NPE=INT(RND(1)#3500)+1 

17* RETURN 

173 REP#="":HA=4 

174 LOCATE 1,4:PRINT'"Que faites-vous :" 
175 GOSUR 178 

176 REP$=UPPERS(REP$#) 

177 RETURN 

178 I$S=INKEYS 

179 IF H4=4 THEN LOCATE I1S8+LEN(REP$) ,HA: 

PRINT CHR$(:07) 

180 IF HA=S5 THEN LOCATE LEN(REP#)-22,HA: 

PRINT CHR$(:07) 

181 IF 1$="" THEN 178 

18% IF IS=CHR&(127) AND LENCREP#):0Q THEN 
183 ELSE 186 

183 IF HA=4 THEN REP#=LEFTS(REP$, LENCREP 

$)—-1):LOCATE 18+LENCREP$),HA3 PRINT"  ":G 

OTO 188 

184 IF HA=5 AND LENCREP#)=24 THEN LOCATE 
1,5:PRINT" ":REP$=LEFTS(REP$, LENCREPS#) 

"sGOT 

O 188 

185 REPS=LEFTS(REPS, LENCREP$)-1) :LOCATE 

LEN(REP$)-22,HA:PRINT" ":GOTO 188 

186 IF I$=CHR$(13) THEN RETURN 

187 REP$=REP#S+1$ 

188 IF LEN(REP#)>23 THEN HA=S ELSE HA=4 
189 IF HA=4 THEN LOCATE 18,HA:PRINT REP# 
190 IF HA=S THEN LOCATE 18,4:PRINT LEFTS$ 
(REP$,23):LOCATE 1,HA:PRINT RIGHT$(REPS, 

LENCREP$)-23) 

191 IF LENCREP$):61 THEN RETURN 

19: GOTO 178 

193 CLS #1 

194 IF E=i THEN GOSUR 19 

195 IF E=47 THEN GOSUR 27 

196 IF E=48 THEN GOSUR Ji 

197 IF F9=0 AND E=48 THEN GOSUR J4 

198 IF E=41 THEN GOSUR 36 

199 IF E=34 THEN GOSUR 44 

200 IF E=34 AND F1i6=1i THEN GOSUR 47 

ZO1 IF E=33 THEN GOSUR 48 

XO* IF E=39 THEN GOSUR 55 

203 IF E=46 THEN GOSUR 59 

“04 IF E=40 THEN GOSUR 62 

205 IF E=86 THEN GOSUR 546 

“06 IF E=6? OR E=77 OR E=90 OR E=98 THEN 
GOSUE 548 

07 IF E=63 OR E=78 OR E=84 THEN GOSUR 5 

49 

Z08 IF E=64 OR E=95 THEN GOSUR 550 

209 IF E=65 THEN GOSUR 551 

210 IF E=é6é THEN GOSUR 553 

Z11 IF E=67 THEN GOSUR 554 

“17 IF E=68 THEN GOSUR 558 

213 IF E=69 THEN GOSUR 559 

“14 IF E=70 THEN GOSUR 560 

215 IF E=71 THEN GOSUR 56# 

16 IF E=74 OR E=110 THEN GOSUR 577 

217 IF E=72 THEN GOSUR 569 

#18 IF E=73 THEN GOSUR 573 

219 IF E=75 THEN INK Z,23:GOSUR 574 

20 IF E=76 OR E=97 OR E=119 THEN GOSUR 

585 

X21 IF E=87 THEN GOSUB 550:GOSUR 54% 

ZZE IF E=79 THEN INK 2,23:INK 3,15 :GOSUR 
535:GOSUR 536:GOSUP 538:GOSUE 539 

223 1F E=79 AND F1=0 THEN GOSUR 5341 





224 IF E=80 THEN INK 2,23:GOSUR 533 :GOSU 

BE 537:GOSUR 544: GOSUR 538:GOSUR 539 

225 IF E=81 THEN INK Z,2Z:GOSUB 535 :GOSUR 
536:GOSUE 543 

#26 IF E=82 THEN GOSUR 586 

227 IF E=83 THEN GOSUR 548:PLOT -800, -80 
O,=:GOSUPR 538:GOSUR 539 

228 IF E=85 THEN INK 2,293:GOSUR 5435 :GOSU 
PB 536:GOSUR 537:GOSUR 538:GOSUR 539 :GOSU 


P 547 
229 IF E=88 
230 IF E=89 


THEN GOSUR 549:GOSUE 538 
OR E=99 THEN INK #,23:GOSUR 


5935 :GOSUPR 536:GOSUB 538:GOSUR 539 :GOSUR 


542 

231 IF E=91 
232 IF E=92 
233 IF E=93 
B-536:GOSUR 
34 IF E=94 
PB 536:GOSUR 
235 IF Er9% 


THEN GOSUR 589 

THEN GOSUR 59% 

THEN INK 2,23:GOSUP 533 :GOSU 
537:GOSUPB 538:GOSUR 539 

THEN INK 2,23:GOSUR 533 : GOSU 
537 


THEN INK 2,%:GOSUR 535 : GOSUR 


536:GOSUR 538:GOSUR 539:GOSUB 544 :PLOT 
160,60,1:GOSUR 65 


236 IF E=101 
UE 536 :GOSUPR 
237 IF E=100 
2938 IF E=10? 
UE 543:GOSUR 
#39 IF E=103 
UR 54% 

#40 IF E=104 
UE 537:GOSUR 
241 IF E=105 
UP 536:GOSUR 
47% IF E=106 
UR 537:GOSUR 
UB 54 

#43 IF E=107 


#44 IF E=108 


THEN INK 2,293: GOSUR 535 :G0S 
543 

THEN GOSUR 593 

THEN INK 2,17:GOSUR 535:GOS 
552Z:PLOT 432,100,1:GOSUR 65 
THEN INK 2,23:GOSUR 574:G0S 


THEN INK Z,293:GOSUR 535 :G0S 
538:GOSUR 539: GOSUE 544 
THEN INK 2,23: GOSUR 535 :GOS 
570: GOSUR 571 

THEN INK 2,23:GOSUR 5353 :GOQS 
538:GOSUR 539: GOSUE 544:G0S 


THEN INK 2?,2Z:GOSUR 535 : GOSU 
EP 536:GOSUR 543 


THEN INK 2,23:GOSUR 535:GO0S 


UR 537:GOSUPR 538:GOSUR 539 
#45 IF E=109 THEN INK 2,17:GOSUR 535:G0S 
UP 536:GOSUR 596:PLOT —-100,0,2:GOSUR 538 
:IF F10=1 THEN GOSUR 539 ., 
Z46 IF E=111 THEN GOSUR 597 | 
#47 IF E=125 THEN GOSUR 597:PLOT 440,28, 


Z:DRAWR 0,160:DRAWR -Z20,-*0:DRAWR 20,0:P 


LOTR —-20,0:DRAWR 0,-1ZD:DRAWR 20,0 

248 IF E=126 THEN INK #,23:INK 93,15 : GOSUR 
535 :GOSUR 536:GOSUR 538:GOSUR 539: GOSUR 
541 

49 IF E=112 THEN INK 3,15:INK 2,%:GOSUR 
601 

250 IF MN:=17 
PRINT'"Soudain 
L1 et quelques 
pla- fond... 


AND F2Z#5;1 THEN CLS:FZ2Z=i1: 
vous sentez trembler le so 
morceaux de roc tombent du 
Le volcan parait se reveil 
ler...":GOSUR 334:GOSUR 334 

251 IF MN=4# AND F22€%2 THEN CLS: PRINT" 
Le 501 se remet a trembler avec une tell 
e violence que des pans de mur s’ecrou- 
lent... Une enorme fissure apparait a vo 
s pieds et vous disparaissez dans les 
profondeurs de la terre..." 

252 1F MN:=4% AND F22252 THEN F22=2:FOR 
A=1 TO 4:GOSUR 334:NEXT A:GOTO 479 

253 IF E=1*5 AND E0(28)<:10 AND F21=0 TH 
EN 488 ELSE IF E=125 AND EO0(Z28)=10 AND F 


1-0 THEN F21=1:GO0TO0 389 

#54 IF EO(14)=10 AND E=84 THEN 486 

255 IF E=1:6 THEN F19=1 

#56 IF E=3Z AND (E0(5)<;10 AND EO(S)<%E) 
THEN 487 

#57 IF E=32 AND F5=0 THEN 487 

258 IF E=32 AND F5=1 AND (EG(5)=10 OR EQ 
(5)=E) THEN GOSUR 50 

259 IF E0(6)=10 AND F17=0 AND E=47 THEN 

F17=1:D$(47)=D#$#(47)+"N0Q" 

260 IF E=80 AND F1i8=0 THEN CLS :PRINT'Un 

scorpion vous empeche de passer":GOSUR 3 

34 

Zo1 IF EO(14)=10 AND E=82 AND F14=0 THEN 
F14=1:D$(8:)=D$(82)+"N0":E$(82)=" devant 
une porte ouverte":GOTO 193 

Z6Z IF F19=1 AND E=125 THEN E=1i1 

“63 IF EO(6)=10 AND F%0=0 AND E=1%6 THEN 
FZ0=1:D$(126)=D$#(12:6)+"NO" 

64 CLS:ND=0:SD=0:0T=-0:ET=0:PA=O 

Z65 I=INT(RND(1)#2)+1 

266 IF I=1 THEN PRINT 

267 IF I1=Z THEN PRINT 
"+E$(E) 

268 IF E=107 THEN 492 

“69 IF E=110 OR E=74 THEN GOSUR 334: GOTO 
489 

270 IF Eziii THEN GOSUR 334:GOTO 490 

271 IF E=94 THEN GOSUR 334:E=111:GO0T0 39 

(a) 

#72 ND=0:SD=0:ET=0:0T=0:DS=0: PEN 

273 FOR I=1 TO LEN(D$(E)) STEP 

S(D#(E),1,2x) 

#74 IF DD$="NO" THEN ND=1:LOCATE 

PRINT #1, CHR$(2Z40) : ND=1 . 

#75 IF DD$="SU" THEN SD=1:LOCATE 
: PRINT #1,CHR#(Z41):SD=1 

#76 IF DD#="ES" THEN ET=1:LOCATE 
PRINT #1,CHR$S(243):ET=1 

#77 IF DD#="OU" THEN OT=1:LOCATE 
PRINT #1, CHRS(242) s0T=1 

#78 IF DD$="DE" THEN DS=1:LOCATE 
PRINT #H1,CHR$S(233):PA=I 

#79 NEXT I 

290 IF E=11: THEN 491 

91 PRINT"'Vous voyez : 

282 OV=O:FOR I=i TO 49 

283 IF EO(I)=E THEN PRINT 
1 

284 

285 

='86 

287 


"Vous etes "+E$(E) 
"Vous vous trouvez 


#1,1 
:DD$=MID 


#1,39,1 
#1,39,3 
#1,40,2 
#1,368,2 


.#1,39,2 


EE 
M—"sOS(I);:0Vz 


NEXT I 

IF OV=0 THEN PRINT'Rien de special.. 
IF INKEY$="" 286 ELSE CLS 
GOSUR 173 

288 IF REP$="" THEN #87 
289 IF RIGHT$S(REP$S,3)="SUD" 
Pg+" " 

90 IF RIGHTS(REP$,3)="EST" AND RIGHT$S(R 
EP$,5)<>"OUEST" THEN REP$=REP$+" " 
#91 IF REP#$="1" OR REP$="INVENTAIRE" 
N 325 

292% IF REP$="N" 
Z93 IF REP#$="S" 
294 IF REP$="E" 
295 IF REP$="O" THEN REP$="ALLE 
#96 IF REP$="Q" THEN 479 
297 IF LEFT$(REP$,4)="DESC" 
ESC FOSS" 


THEN 


THEN REP#=RE 


THE 


REP$="ALLE 
REP$="ALLE 
REP#="ALLE 


NORD" 
SUD " 
EST " 
QUES" 


THEN 
THEN 
THEN 


THEN REP$="D 





298 IF LEFT$S(REP$,4)="MONT" THEN REP$="M 

ONT DIAM" 

#99 V&=LEFT$S(REP$,4) 

300 IF V$<>"MERD" AND V$<#"PUTA" 

æ"CHIA" AND V$<5%"CONN" THEN 304 

301 A=INT(RND(1)#2)+1:0ON À GOTO 302, 303 

307 CLS:PRINT'"'Je peux en dire autant a vV 

otre egard !!!":GOSUR 333:GOT0 2543 

303 CLS:PRINT'"'Restons polis ...":GOSUR 3 

33:GOTO0 2:53 

304 FOR Izi TO LENCREP$#) 

305 IF ASC(MID#(REP$,1,1))=3* THEN 307 

306 NEXT I 

307 VES=LEFTS(REPS,I-1) 

308 FOR I=(LENCREP#)-1) TO 1 STEP -1 

309 IF ASC(MIDS(REP#,1,1))=3Z OR ASC(MID 

H(REP$S,1,1))=39 THEN 311 

310 NEXT I 

311 NS=MIDH(REPS,1+1,4) 

317 NOS=RIGHTS(REPS#,LENCREP$) -T) 

313 IF N#=V$ THEN GOSUR 33Z#:GOTO0 264 

314 FOR I=1i TO LEN(O1$) STEP 4 

315 IF N#=MID$S(01$,1,4) THEN 318 

316 NEXT I 

317 CLS:PRINT'"'Je ne connais pas le mot " 
5: CHRS (34) 3NOS ; CHR (G4) 3". ":GOSUR 334: GOT 

O 64 

319 NN=VAL(MID#(OZS,1I,4)) 

319 FOR I=i TO LEN(VI$#) STEP #4 

20 1F VHEMIDS(VI1#,1,4) THEN 373 

ei NEXT I 

dix CLS:PRINT'Je ne comprends pas "3 CHRS#& 
(34)3VES 3; CHR$S(34) 3". ": GOSUB 334: GOTO0 264 

323 V=VAL(MIDH(VES,1,4)) 

324 ON V GOTO 392,401,407,409,419,437,44 

3,456,464,472,494,499,503,511,518,525 

325 CLS 

326 PRINT'En ce moment vous transportez 

327 IF NT=0 THEN PRINT" 

SUR 333:GOTO0 64 

328 FOR PR=1 TO 48 

39 IF EO(CPR)=10 THEN PRINT O$(PR) 

330 NEXT 

331 IF INKEY$="" THEN 331 ELSE Z64 

33: CLS:PRINT'"'Precisez votre pensee,S.V. 

P.":GOSUR 333:RETURN 

333 FOR I=i TO 9GOO:NEXT 1I:RETURN 

3934 FOR I=1 TO 1800:NEXT I:RETURN 

335 MES=INT(RND(1)#5):CLS 

336 IF MES=0 THEN PRINT"Ca va pas la tet 

e ?7!7":GOSUR 333:GOT0 64 

337 IF MES=1 THEN PRINT'"Vous trouvez ca 

drole ?7":GOSUR 333:GO0T0 =64 

338 IF MES=Z THEN PRINT'"Vous n’etes pas 

un peu fele, non ?":GOSUR 334: GO0TO0 264 

339 IF MES=3 THEN PRINT'"'Parfois je me de 

mande si vous etes normal ...":GOSUR 334 

:GOTO0 264 

340 PRINT'"'Vous vous sentez 

UP 333:GOT0 =64 

341 MES=INT(RND(1)#3):CLS 

34% IF MES=0 THEN PRINT"C'est impossible 
I": GOSUR 333:GOT0 64 

343 IF MES=1 THEN PRINT"'Ca parait diffic 

ile, non 7":GOSUR 333:GOTO0 Z64 

. 344 PRINT"'Vous ne pouvez pas aller par 1 

a !":GOSUR 333:GOT0 64 


AND V#« 


rien du tout":G0 


bien 7!7":G0S 


345 CLS:PRINT"Vos bras sont trop charges 
.":GOSUR 333:GOTO0 64 

346 CLS:PRINT"Je ne vois pas d’";LOWERS( 
NO) ;".":GOSUR 333:GOTO0 764 

347 CLS:PRINT"'Je ne vois pas de ";LOWERS 
(NO) 3; ".":GOSUR 333:GOTO0 Z64 
348 CLS:PRINT"'Vous l'avez deja ! 
quoi !'!'!":GOSUR 334:GOTO0 264 
349 CLS:PRINT"Vous avez des pensees bien 
macabres !'!'!":GOSUR 334:GOTO 264 

350 CLS:MES=INT(RND(1)+#2% 

351 IF MES=1 THEN PRINT'Fouillez un peu 
vos poches, pour voir ...":GOSUR 334:GOT 
O 264 

352 PRINT"Vous ne l’avez meme pas, espec 
e de tricheur !''!":GOSUR 334:GOT0 264 
3353 MES=INT(RND(1)#8)+1:CLS 

354 ON MES GOSUR 356,357,358,359,360, 361 
362,363 

3355 GOTO 2:64 

356 PRINT'O.K, !":GOSUR 333:RETURN 

357 PRINT'"Tres bien.":GOSUR 333:RETURN 

358 PRINT'"D’accord.":GOSUBR 333:RETURN 

359 PRINT'"'Pas de probleme.":GOSUR 333:RE 

TURN 

360 PRINT'"'Tout ce qu’il vous plaira 

OSUP 334 :RETURN 

361 PRINT'Je suis a votre entiere dispos 
ition.'":GOSUR 334 :RETURN 

36% PRINT'A vos ordres !":GOSUR 333:RETU 

RN 

363 PRINT"Tout de suite, 
":GOSUR 334 :RETURN 

364 CLS:PRINT"Ponne idee ! Comment faite 

s-vous 7!":GOSUR 334:GOT0 264 

365 CLS:PRINT'"'Elle contient un scarabee" 
:GOSUR 333:GO0TO0 264 

366 CLS:PRINT'Elle est vide":GOSUR 333:G 

OTO 264 

367 CLS:PRINT'"'Le coffre contient un scar 

abee":GOSUR 334: GOTO0 264 

368 CLS:PRINT"'I1 contient une lampe en o 

r !Il":GOSUR 334:GOTO0 64 

369 CLS:PRINT"C’est trop 

TO 64 

370 CLS:PRINT"'Un passage secret apparait 
UTI":GOSUER 334:GO0TO0 264 

371 CLS:PRINT'"'Le passage est deja ouvert 
I": GOSUR 334:GOT0 #64 

372 CLS:PRINT"'Une petite fumee s’en echa 

ppe mais la lampe ne s’allume pas":GOSUR 
334: GOSUR 333:GOT0 %64 

373 CLS:PRINT'Elle est deja allumee 

OSUR 334:GOTO0 Z64 

374 CLS:PRINT'"'Rien ne 5e passe...":GOSUR 
333:GO0TO0 264 

375 CLS:PRINT"Vous croyez y arriver tout 
seul ?7!7":GOSUR 334:GO0T0 264 

376 CLS:PRINT"'La grille s’ouvre":GOSUR 3 

33:GO0T0 =64 

377 CLS:PRINT"'La porte s’ouvre 

334:GOT0 264 

378 CLS:PRINT'"'Vous decouvrez une formule 

":GOSUR 334:GOT0 264 

379 MES=INT(RND(1)#2):CLS 

380 IF MES=1 THEN PRINT'"Vous voulez vous 
demettre l’epaule 7":GOSUR 334:GOSUR 33 

3:GO0TO 64 


Enfin, 


ts: G 


maitre venere ! 


l"s:GOSUP 333:G0Q 


1:G 


ls GOSUR 





391 PRINT'"'Prenez un dictionnaire et rega 

rdez ce que signifie ’masochiste’":GOSUPR 
334: GOSUR 334:GOT0 264 

38% CLS:PRINT"'La grille est defoncee !''! 
"IGOSUR 334:GOTO0 193 

383 CLS:PRINT"'Il1 s’agit des notes d’un e 
“plorateur. Le texte finit ainsi :’12 ju 
illet 1952 I1 ne me reste plus qu’une 
seule bougie...J’ai soif...Je sens ma m 

ort toute pro-cte...’ Puis plus rien !!! 
"FOR A=1 TO 9:GOSUR 3R4:NEXT A:GOTO 264 


384 CLS:PRINT'"'IL est ecrit ’Par la puiss 
ance du Dieu Soleil, je vous ordonne de 
vous ouvrir’":GOSUR 334: GOSUR 333: GOTO0 
64 

385 CLS:PRINT'"'IL est ecrit 
SUR 334: GOTO0 Zé64 

386 CLS:PRINT"Un genie s’en echappe et f 
ait voler le bloc de pierre en eclats. U 
ne porte apparait derriere !!!":GOSUR 33 
4: GOSUR 334:GO0TO0 193 

387 CLS:PRINT'"'Le scarabee se rue vers le 
Scorpion et le mord avant de disparaitr 
e derriere unepierre. La voie est mainte 
nant libre...":E0(24)=0:F1=0:GOSUR 334:G 

OSUR 334:GOTO 264 

388 CLS:PRINT'"'Le scorpion vous empeche d 
e passer !l':GOSUR 334:GOT0 264 

389 CLS:PRINT'"Grace a la cape de plumes 

vous atterrissez en douceur au fond du Pp 

uit... ":GOSUR 334:GO0T0 264 

390 CLS:GOSUER 599:PRINT'"'Le sol se derobe 
sous vos pieds et vous faites une chute 
de plusieurs metres...":GOSUR 334:GOSUR 
334:GOTO 193 / 

392 IF NN£:50 AND NN£#%51 AND NN£#%52% AND 
NN<%53 AND NN4>35 THEN 335 

393 IF E=680 AND F18=0 AND NN=52 THEN 388 
394 IF NN=50 AND ND=i THEN E=E-7:GOTO0 19 
3 

1395 

3 

396 

3 
397 

3 

398 IF NN=35 

399 GOTO 341 
401 IF NN£:35 THEN 335 

402 IF (E=40 AND F£=1) OR (Ezi AND F3=1) 
OR PBA=1 THEN E=E+46 ELSE 341 

403 IF E=114 OR E=115 OR E=119 OR E=131 
OR E=1933 OR E=135 OR E=145 OR E=152Z THEN 
E=111:GOT0 193 

404 IF E=149 THEN Ez1%5 : GOTO 

405 GOTO 193 

407 GOTO 341 

409 IF NN=3 AND (E=48 OR E=79) 

410 IF NN=3 AND E<;48 THEN 347 

411 IF NN=4 AND E=4i THEN 483 

412 IF NN=4 AND E<:41 THEN 347 

413 IF NN=17 AND (EQG(17)=E OR EO(17)=10) 
AND Fi=1 THEN 365 

414 IF NN=17 AND (EOG(17)=E OR EO0(17)=10) 
AND F1=0 THEN 3664 

415 IF NN=ZS5 AND E=109 AND EO(24)=0 THEN 
EO(Z#4)=109:GO0T0 367 


un 3NPE3;"?7":G0O 


= NN=51 AND THEN E=E+7:GOTO 19 


NN=5Z AND THEN E=E+1:GOTO 19 
NN=53 AND OT=1 THEN E=E-1:GOT0 19 


THEN 401 


193 


THEN 364 


416 IF NN=37 AND (EO(37)=E OR EO(37)=10) 
THEN 366 

417 IF NN=Z? AND E=105 AND EOG(Z1)=0 THEN 
EO(21)=105:GOT0 368 

419 IF NT=4 THEN 345 

420 IF NN=Z OR NN=G OR NNz4 OR NN=B OR N 

N=13 OR NN=15 OR NN=19 OR NN=ZO OR NN=ZZ 
OR NN=EGZ OR NN=ES OR NNzË6 OR NN=GE OR 

NN=G3S OR NN=49 OR NN=50 OR NN=51 OR NN:5 

Z OR NN=53 THEN 335 

421 IF NN=1i AND E=1i THEN 475 

22 IF NN=1* AND E=107 THEN 349% 

423 IF NN=7 AND E=37 THEN 476 

424 IF NN=S AND F16=0 AND E=34 THEN F16: 
1:D#(34)=D$(34)+"OU"s:GOSUR 473:CLS: PRINT" 

Un passage apparait":GOSUER 334 

425 IF NN=Z4 AND EOG(17)<%10 AND EG(Z4)=E 
THEN 477 

426 IF NN=*?9 AND E=80 THEN 478 

427 IF (NN=G33 OR NN=34) AND Ez=71 THEN 48 
1 

428 IF NN=4 AND EO(17)=10 THEN Fiz1:EO0( 

E4)=10:NTENT+1:GOTO 48% 

429 IF NN=17 AND EOG(17)=E AND F1i=1 AND N 

T3 THEN EO(17)=10:E0(24)=10:NTENT+2: GOT 

O 353 

430 IF NN=17 AND EOG(17)=E AND Fi=i AND N 

TZ THEN 345 

431 IF EO(NN)=E THEN EOCNN)=10:NT=NT+1:G 

OTO 353 

432 IF EOCNN)=10 THEN 348 

433 VOYS=LEFTS(NOS, 1) 

4934 IF VOYS#="A" OR VOYS#="I" 
THEN 346 

435 GOTO 347 

437 IF EO(NN)£*10 THEN 350 
4938 IF NN=Z4 THEN EOCNN)=<E:NTENT-1:F1=0: 
GOTO 441 

439 IF NN=17 AND EO(17)=10 AND Fi=i THEN 
EO(17)=E:E0(Z24)=E:NTENT-Z:GOTO 441 


OR VOYS#S="U" 


440 EQCNN)=E:NTENT-1:GOTO 353 


441 IF EO(24)=680 AND F18=0 THEN F18=1:E0 
(29)=0:GOT0 387 ELSE 353 

443 IF (NN=19 OR NN=2O) AND E=91 THEN 44 
6 

444 IF NNz=9 AND (EO(9)=10 OR EO(9)=E) AN 

D E=:39 THEN 454 

445 GOTO 335 

446 IF F4z=1 THEN 371 

447 CLS:LOCATE 1,3:PRINT"Combien de perl 

es desirez-vous mettre dans le vase 7" 
: REP$S="":HA=4 

448 GOSUR 178 

449 IF VAL(REP#):500 OR VAL{REP#)<1 
369 

450 NP=VAL(REPS#) 

451 IF NP£:NPE THEN CLS:PRINT'"'Le vase co 
ntient'";NP;"perles":GOSUR 334:GOT0 264 
4SZ D$(91)=D$(91)+"OU":F4z1 

453 PLOT 0,-600,Z:GOSUPR 536:GO0T0 370 

454 IF F7=1 THEN 371 ELSE F7=1:D$(39)=D$ 
(39)+"NO":GOTO 370 | 
456 IF NN£:5 AND NN£%21 AND NN4#%27 THEN 
335 

457 IF NN=S AND (EOG(5)=10 OR EU(S)=E) AN 
D F5=0 THEN F5=1:GO0T0 353 

458 IF NN=S AND (EOG0(5)=10 OR EO(5)=E) AN 
D F5=1i THEN 373 


THEN 





459 1F NN=Z1 AND (EO(#1)=10 OR EO(21)=E) 
AND F6=0 THEN Fé=1i:GO0TO 37% 

460 IF NN=Z1 AND (EG(#1)=10 OR EO(Z1)=E) 
AND F6=i THEN 374 

461 IF NN=?7 AND (EO(Z7)=10 OR EOU(Z7)=E) 
THEN 484 

462 GOTO 335 

464 IF NNzi OR NN=7 OR NN=Z3 OR NN=2Z6 OR 
NN=S THEN 465 ELSE 335 

465 IF NN=1 AND E=1 AND F8=0 THEN F8=1:D 

$(1)=D$(1)+"DE":GOSUR 25:GOTO0 370 

466 IF NN=7 AND E=37? THEN 476 

467 IF NN=23 AND E=100 THEN 375 

468 IF NN=Z6 AND E=109 THEN 374 

469 IF NN=8 AND E=3% AND F15=0 THEN F15* 
L:D$(3#)=D#$(32)+"SU":GOTO 370 

470 GOTO 335 

472 IF NN£:? THEN 335 

473 IF E=48 THEN 485 

474 GOTO 335 

475 CLS:GOSUR *#4:PRINT" Le diamant degag 

e une lumiere aveuglante et vous etes fr 
appe de cecite !'!":GOSUP 334:GOSUR 334:G 

OTO 479 

476 CLS:PRINT"A peine avez-vous touche 1 

a staue qu’elle crache un jet de gaz emp 
oisonne !!'!":GOSUR 334:GOSUR 334:GO0TO 47 

9 

477 CLS:PRINT'Le scarabee vous mord et v 

ous perissez empoisonne !":GOSUR 334:G0S 
UR 333:GOT0 479 

478 CLS:PRINT'"'Le scorpion vous pique de 
Sa queue et vous perissez empoisonne !l": 
GOSUR 334:GOSUR 334:GOTO 479 

479 AFTER 1 GOSUR 534:CLS:INPUT"Voulez-v 
oQus rejouer ?7",REP$ 

480 IF REP$="0" OR REP#="o" THEN RUN ELS 
E IF REP$="N" OR REP$="n" THEN END ELSE 
479 

481 CLS:GOSUR 568:PRINT'"'Les deux cranes 
s’elevent dans les airs de leurs orbites 
vides jaillissent deux eclairs qui vous 
foudroient !":FOR Az1i TO 3:GOSUR J34:NE 
XT A:GOTO 479 


482 CLS:PRINT"Vous parvenez a saisir le 


sScarabee et vous le mettez dans la boite 
M":GOSUR 334:GOSUR 333:GOT0 264 | 
483 GOSUR 40:C=460:D=70::GOSUR 41:CLS:PR 
INT"'Vous avez reveille une momie. Elle s 
e rue sur vous et vous transforme en esp 
rvit...":GOSUP 334:GOSUR 333:GOTO0 479 
484 CLS:PRINT"Une epaisse fumee s’en deq 
age et vous perissez asphyxie":GOSUB. 334 
:GOSUR 333:GO0TO0 479 
485 CLS:PRINT'"'Une seconde herse s’abat e 
t vous tranche la tete...":GOSUR 334:G0S 
UR 334:GOTO 479 
486 CLS:GOSUR 598:PRINT'"'L’esprit du mort 
dont vous avez profane la tombe vient 5 
e venger et vous entrai-ne au royaume de 
s Ombres.":GOSUR 334: GOSUR 334:GO0TO0 479 
487 CLS:PRINT'"Vous trebuchez dans le noi 
r et votre tete heurte une pierre":GOSUR 
334:GOSUR 334:GOTO 479 
488 CLS:PRINT"Vous vous ecrasez au fond 
du puit...":GOSUR 334:GOSUR 333:GOTO 479 
489 CLS:PRINT"'La porte se referme et le 


caveau se remplit peu a peu d’eau...":G0 
SUR 578:GOSUPR 333:GOT0 479 

490 CLS:PRINT"'Un cobra vous mord au moll 
et...":GOSUR 334:GOTO0 479 

491 GOSUR 334:CLS:PRINT"'Vous avez fait u 
ne decouverte innestimable et en touchan 
+ l’oeil droit de 1la statue, un escal 
ier apparait qui vous permet de remonter 
a la surface de la ter-re, riche et cel 

ebre...":FOR Azi TO 7:GOSUR GJ4:NEXT A:G 
OTO 479 

492 GOSUR 3343:CLS:PRINT"Vous avez decouv 

ert le tresor de la pyramide mais vous n 
’en ressortirez jamais car les pretres 
avaient pris soin de le proteger des ind 
ividus de votre genre.'":FOR Az=1 TO 3:GO0S 

UP JJ4:NEXT A:GOTO 479 

494 IF NN=Z OR NN=3 THEN 495 ELSE 335 

495 IF NN=Z AND E=48 AND F9=0 THEN F9=1: 
D$(48)=D$(48)+"NO":GOSUR 35:GOTO 376 

496 IF NN=3 AND (E=48 OR E=41) THEN 375 

497 GOTO 335 

499 IF NN£:26 THEN 335 

500 IF E=109 AND F10=0 THEN F10=1:D#$(109 
)=D$(109)+"NO":GOSUR 539:GOTO 377 

501 GOTO 335 

503 IF NN=i OR NN=3 OR NN=7 OR NN=15 OR 

NN=Z3 THEN 504 ELSE 335 

504 IF NN=1i AND E=1 THEN 475 

505 IF NN=3 AND (E=48 OR E=41) 

506 IF NN+7 AND E=3* THEN 476 

507 IF NN=15 AND E=67 AND F11=0 

=1:E0(16)=67:GOT0 378 

508 IF NN=?3 AND E=100 THEN 375 

509 GOTO 335 

511 IF NN=G3 OR NN=4 OR NN=ZZ OR 
NN=25 THEN 51% ELSE 335 

512 IF NN=3 AND (E=48 OR E=41) THEN 379 

513 IF NN=3 AND E=79 AND (EO(10)=10 OR E 

O(10)=79) AND F1==0 THEN F1Z=1:D$#(79)=D$ 
(79)+"NO":GOTO 382% 

514 IF NN=4 AND E=41 THEN 483 

515 IF (NN=?22 AND E=105) OR (NN=Z3 AND E 

100) OR (NN=ES AND E=109) THEN 379 

516 GOTO 335 

918 IF NN=i1 

ELSE 335 

519 IF NN=1i1 AND 
THEN 383 

520 IF NN=1i6 AND (EG(16)=10 OR 
AND E“*:70 THEN 384 

921 IF NN=1i6 AND (EG(16)=10 OR 
AND E=70 AND F13=0 THEN GOSUR 
:D$(70)=D#(70)+"NO":GOTO 377 

522 IF NN=18 AND (EO0(18)=10 OR 
THEN 365 

523 GOÔTO 

525 IF NN#ÿ21 THEN 335 

526 IF (EO0(21)=10 OR EO(21)=E) AND F6=0 

AND E=100 THEN F6=1:D$(100)=D$(100)+"ES" 
:E0(23)=0:GOTO 386 

527 GOTO 374 

528 SEC=SEC+I 

529 IF SEC=60 THEN MN=MN+1:SEC=0 

530 IF MN=60 THEN HR=HR+1 : MN=O 

331 SECS=STRE(SEC) : MNS=STRSE (MN) 2 HRS=STRS 

CHR) 

292 SEC$=MIDH(SECS,2,2) :MNS=MIDS (MNS,2,2Z 


THEN 375 


THEN Fil 


NN=Z3 OR 


OR NN=16 OR NN=18 THEN 519 


(EO(11)=10 OR EO(11)=E) 
EO(16)5E) 


EO(16)5E) 
561:F13=1 


EO0(18)=E) 


335 





):HRS=MIDS(HR#,2Z,2) 
533 PEN Z:LOCATE #1,17,1:PRINT #1,HRS$+": 
" +MNNS+": sn +SECS+" "n 

534 PEN 1:RETURN 

535 CLS #1:PLOT 0,Z,1:DRAW 640,2, 1: PLOT 
0,8,2:DRAUR 100,60,2:DRAWR 0O,140:DRAWR — 
100, 60:PLOTR 100, -60: DRAWR 440,0:DRAWR 1 
00, 60: DRAWR -100,-60:DRAWR 0,-140:DRAWR 
100,-60:PLOTR -100,60:DRAWR -440,0:RETUR 
N 

536 PLOT #0,20:DRAWR 0,18B:DRAWR 60,-20: 
DRAWR 0,-132:DRAWR -32,0:DRAWR 0,132:DRA 
WR 32,0:PLOTR -32,0:DRAWR -28,8:PLOTR 0, 
-90:DRAWR 28,0:PLOTR 0, 52: DRAWR 28, -16 
: RETURN 

537 PLOT 620,20:DRAWR 0,188:DRAUR -60,-% 
O:DRAWR O,-132:DRAWR 32,0:DRAWR 0, 132:DR 
AUR -3%,0:PLOTR 32,0:DRAWR ?8,8:PLOTR O, 
-90:DRAWR -28,0:PLOTR 0,-52:DRAWR 28,-16 
: RE TURN 

538, PLOT 280,6B:DRAWR 0,1Z0:DRAWR 80,0:D 
RAUR 0O,-120:RETURN 

539 PLOTR -12,1Z:DRAWR 0,96:DRAWR -56,0: 
DRAWR O,-96:DRAWR 56,0:DRAWR 12,-12Z:PLOT 
R O,1#0:DRAWR -1Z,-12:PLOTR -56,0:DRAWR 
-12,1Z:PLOTR 0,-1Z20:DRAWR 12,12Z:RETURN 
540 INK 3,15:PLOTR 8,0:FOR A=1 TO 6:DRAW 
R O,B8:DRAWR 8,0:NEXT A:RETURN 

541 PLOT 296,80,3:FOR A=1 TO 6:DRAWR 0,9 
6:PLOTR 8,-96:NEXT A:DRAWR 0,96:PLOTR 4, 
—16:DRAWR -56,0:PLOTR 0,-64:DRAWR 56,0:R 
ETURN 

54% PLOT 280,56:DRAWR 80,0:DRAWR 40,-28: 
DRAWR —-160,0:DRAWR 40,2Z8:DRAUWR 0,-28:PLO 
TR 80,0:DRAWR 0, 28:RETURN 

543 PLOT 420,68,0:DRAWR 80,0:PLOTR -80,— 
#8, 2:DRAWR 20,-1Z:DRAWR 60,0:DRAWR 0,60: 
DRAWR -20,1Z:DRAWR -60,0:DRAWR 20,-1Z:DR 
AUR 60,0:PLOTR -60,0:DRAWR 0,-60:PLOTR — 
20,1Z:DRAWR 0,60:PLOTR 28,-20:DRAWR 44,0 
:DRAUR 0,-44:DRAWR -44,0:DRAWR 0, 44:RETU 
RN 

544 PLOT 132,24,2:DRAWR 0,1Z:DRAWR 12,6: 
DRAWR 20,0:PLOTR O,-8:DRAWR O0,1Z:DRAWR 1 
Z,8:DRAWR 40,0:DRAWR -12,-8:DRAWR -40,0: 
PLOTR 52Z,B8:DRAWR O,-12:DRAWR -1%,-8:DRAW 
R O,12:PLOTR 12,-4:DRAWR 24, 0:DRAWR 
-B:DRAWR O,-1Z:DRAWR 12,8:DRAWR 0, 12: PLO 
TR -12,-270 | 

545 DRAWR -40,0:DRAWR 0,1Z:DRAWR O,-4:DR 
AWR -17,-B:DRAWR O,1Z:PLOTR O,-1Z:DRAWR 
-44,0:PLOTR 0,1Z:DRAWR 92%,0:RETURN 

546 INK 2,23:GOSUR 535:GOSUR 536:GOSUR 5 
37: GOSUPR 547:GOSUPR 540:GOSUR 541 :RETURN 
547 GOSUE 538:GOSUB 539:RETURN 

548 INK 2,2:GOSUR 535:GOSUP 537:GOSUP 54 
3:PLOT 432,100,1:GOSUR 65: RETURN 

549 INK Z,23:GOSUP 535:GOSUR 536:GOSUP 5 
37:GOSUPB 544: RETURN | 

550 INK Z2,Z:GOSUB 535:GOSUB 537:GOSUB 53 
6&:RETURN 

551 INK 2,23:GOSUR 535:GOSUR 536:GOSUB 5 
37:GOSUB 552:RETURN 

552 INK 3,11:PLOT 240,68,0:DRAWR 160,0:P 
LOTR 0,20,3:DRAWR -160,0:DRAWR 30,20:DRA 
WR 100,0:DRAWR 30,-20:DRAWR 0,-60:DRAWR 
-160,0:DRAWR 0,60:PLOTR 8,-B:DRAWR 146,0 


-17, 


:DRAWR 0,-46:DRAWR -146,0:DRAWR 0,46:RET 
URN 
553 INK £,23:GOSUPR 535:GOSUB 536:GOSUP 5 
43: RETURN 
554 INK 2,2:GOSUR 535:GOSUR 537:INK 3,26 
:GOSUR 555: RETURN 
555 PLOT 280,48,0:DRAWR 80,0:PLOTR 0,-8, 
1:DRAWR -80,0:DRAWR 0,16:DRAWR 80, 0:DRAW 
R O,-16:PLOTR -12,16:DRAWR -8,4:DRAWR -4 
,40:PLOTR —-12,0:DRAWR 8,-44:PLOTR -40,0: 
DRAWR 8,4:DRAWR 4,40:PLOTR 1Z,0:DRAWR -B 
,—44:PLOTR 0,68:DRAWR -4,20:PLOTR -8,12: 
DRAWR -4,-20 
556 DRAWR 16,-B:PLOTR 24,-4:DRAUR 4,20:P 
LOTR 8,1Z:DRAWR 4,-20:DRAWR -16,-8:PLOTR 
0, 60:DRAWR 0,-16:DRAWR -12,-B:DRAWR -1% 
,8:DRAUR O,16:DRAWUR 24,0,3:DRAWR 8,8:DRA 
WR -20,8:DRAWR -20,-8:DRAWR 8,-8:PLOTR 4 
,-Z20:DRAUR -20,0:DRAWR 8,-20:DRAWR 12,-8 
:DRAWR 16,0 
557 DRAWR 12Z,B:DRAUR 8,20:DRAUR -%0,0:PL 
OTR 4,44: DRAWR 12,-24:DRAWR -48, 0 :DRAUWR 
12,24:DRAWR 24,0:RETURN 
558 INK 2,Z:GOSUR 535:GOSUE 536:GOSUL 54 
2 : RETURN 
559 INK 2,2:GOSUB 535:GOSUR 537:GOSUB 54 
: RETURN 
560 INK 2,23:GOSUB 535:GOSUR 536:GOSUR 5 
37:GOSUR 538:GOSUR 539:1F F13=0 THEN PLO 
T 320,80,Z:DRAWR 0,96:RETURN ELSE RETURN 
561 P=318:FOR A=320 TO 294 STEP -3:Pæp+ 
:PLOT A,82,Z:DRAUR 0,92:PLOT P,82:DRAWR 
0,92:PLOT A+2,82,0:DRAWR 0,92:PLOT P-2,8 
É:DRAWR O,9Z2:NEXT A:RETURN 
562 INK £,2:GOSUP 535:GOSUP 536:PLOT 188 
,58,2:GOSUR 566:PLOT 412,58,2:GOSUR 566: 
PLOT 300,68,0:DRAWR 40,0:PLOTR -40,20,2: 
GOSUR 566:INK 3,26 
563 TAG:PLOT 192,98,3:PRINT CHR#(145)+CH 
R$(146);:PLOT 192,8Z2:PRINT CHR$(147)+CHR 
$#(148);:PLOT 416,98 
564 PRINT CHR#(145)+CHR#(146)::PLOT 416, 
BZ: PRINT CHR$(147)+CHRS (148) 3: : TAGOFF : PLO 
T 320,88,1:DRAWR 0,4:DRAWR 8,8:DRAWR 0, 1 
Z:DRAWR -16,0:DRAWR 0,-1Z:DRAUR 8,-8:PLO 
TR O,-4:DRAWR 12,1Z:DRAWR 0,Z0:DRAWR -4, 
B:DRAUR -8,4:DRAWR -8,-4:DRAWR —4,-B:DRA 
WR O,-2 
565 DRAWR 12,-12:RETURN 
566 DRAWR 0,-40:DRAWR 40,0:DRAWR O,40:DR 
AUR -40,0:DRAWR 8,8:DRAWR Z4,0:DRAWR 8, - 
8 : RETURN 
567 SYMBOL AFTER O:SYMBOL 145,3,12, 16,32 
,64,64,78,95:SYMEOL 146,224,24,4,2,1,1,5 
7,125:SYMEOL 147,78,32,24,5,6,4,3,0:SYME 
OL 148,57,2,12,80,176, 16,224, O0 : RETURN 
568 INK 3,25,0:SPEED INK 2,2:TAG:FOR A=9 
8 TO 190:PLOT 192,A,3:PRINT CHR$(145)+CH 
R$(146);:PLOT 192,A-16:PRINT CHR$(147)+C 
HR$(148) ;:PLOT 416,A:PRINT CHRS(145)+CHR 
H(146) ;:PLOT 416,A-16:PRINT CHR$(147)+CH 
R$(148);:NEXT A:TAGOFF : RETURN 
569 INK 2,23:INK 3,5:GOSUR 535:GOSUP 570 
:C=300:D=38:GOSULR 41:GOSUR 571: RETURN 
570 PLOT 282,68,0:DRAWR 76, 0:RETURN 
571 PLOT 292,389,2:DRAWR -12,98:DRAUR 127, 
9: DRAWR 8,36:DRAWR 20, 4:DRAWR 20,-4:DRA 





WR 8,-36:DRAWR 12,-20:DRAWR -12,-98:DRAW 
R -56,0:PLOTR -6,-B:DRAWR -12, 106:DRAWR 
12,Z0:DRAWR 8,42:DRAUR 20,4:DRAWR 12,0:D 
RAWR 20,-4:DRAUWR 8,42: DRAUR 12, -20 : DRAW 
R -12,-106 

572 DRAWR -68,0:RETURN 

573 INK Z,Z23:INK 3,7:GOSUR 574:GOSUB 576 
:PLOTR -600,-600, 3: GOSUR 542:RETURN 

574 CLS #1:PLOT 0,2,1:DRAW 640,2, 1:PLOT 

Z40,68,2:DRAWR 0,140:DRAWR 160,0:DRAWR 0 
,=140:DRAWR -160,0:DRAWR -60,-60:PLOTR 6 

O,200:DRAWR -60,60:PLOTR 220,-60:DRAWR 6 

0,60:PLOTR -60,-*00:DRAWR 60,-60:DRAWR 0 
,260:PLOTR -280,0:DRAWR 0,-260:GOSUR 538 

575 GOSUR 539:RETURN 

576 DRAWR 0,96,3:DRAWR 56,0:DRAWR 0O,-96: 

DRAUR -56,0,0:PLOTR 56,0,3:DRAWR -16,0:D 
RAWR 4,28:DRAUR -12,Z0:DRAWR —-12,48:PLOT 

R 8,-36:DRAWR -4,-12:DRAWR —-12,-20:DRAWR 
4,-28:DRAUR -16,0:PLOTR 12,28,1:DRAUWR - 
12,8:PLOTR 56,0:DRAWR —12,-8: RETURN 

577 INK 2,23:INK 3,2:CLS #1:PLOT 0,%,1:D 
RAW 640,2,1:PLOT 2Z40,68,2:DRAWR 0, 200:PL 

OTR 160,0:DRAWR 0,-200:DRAWR -160,0:DRAW 

R -60,-60:PLOTR 220, 60:DRAUR 60, -60:DRAU 
R 0,260:PLOTR -280,0:DRAWR 0, 260 : GOSUR 

538:GOSUR 539:RETURN 

578 FOR 4A=184 TO 68 STEP -1:PLOT 287,A,2 
:DRAWR 76,0:PLOT 282,A4+2,0:DRAWR 76,0:NE 
XT À 

579 P=6:C=280 

580 FOR 4=180 TO 240 STEP Z:B=P+Z2:PLOT À 
,P,3:DRAWR C,O:C=C-4:NEXT A 

581 FOR A=10 TO 208 STEP 2:PLOT 180,A,3: 

DRAUR 60,60:DRAWR 160,0:DRAWR 60,-60:DRA 

WR -280,0,0:PLOTR 0,-2,3:DRAWR 280,0:NEX 

T À 

582 PLOT 360,90,1:DRAWR 0,1Z:DRAWR -4,-4 
:DRAWUR -8,4:DRAWR -8,-B:DRAUR B,-4:DRAUWR 
8,4:DRAWR 4,-4:PLOTR -24,12,2:GOSUP 583 
:PLOTR -8,16:GOSUR 583:PLOTR 8, 16: GOSUR 

583:GOT0 584 

583 DRAWR -4,4:DRAWR 4,4:DRAWR 4,-—4:DRAW 

R -4,-4: RETURN 

584 FOR A=208 TO 268 STEP 1:PLOT 180,A,3 
:DRAWR 280,0:NEXT A:RETURN 

585 INK 2,23:INK 3,5:GOSUB 574:GOSUR 576 
: RETURN 

586 INK Ÿ,23:GOSUR 535:GOSUB 538:GOSUR 5 
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587 IF F14=0 THEN PLOT 320,80,Z:DRAUR 0, 

96 

588 RETURN 

589 INK 2,2:GOSUR 535:GOSUB 537:GOSUR 54 

3:1F F4=1 THEN GOSUR 536 

590 PLOT 442,100,0:DRAUR 32,0 

591 INK 3,15:PLOT 450,108,3:DRAWR 16,0:D 

RAWR 16,-16:DRAWR -48,0:DRAWR 16, 16:DRAUW 

R -16,16:DRAWUR -8,24:DRAWR 64,0:DRAWR -8 
,-24:DRAWR -16,-16:RETURN 

592 INK 2,72:GOSUP 535:GOSUR 536:GOSUR 53 

7:GOSUR 538:GOEUR 539:PLOT 200, 60, 1 :GOSU 

B 65:PLOT 380,60:GOSUB 65 : RETURN 

593 IF D$(100)="NOES" THEN INK 2,23:GOSU 

BE 535:GOSUR 537:GOSUB 538:GOSUR 539:RETU 

RN 

594 INK 2,23:CLS #1:PLOT 0,2,1:DRAW 640, 


2,1:PLOT 0,8,2:DRAWR 100,60,2Z:DRAUWR 0,14 
O:DRAWR -100,60:PLOTR 100,-60:DRAWR 300, 
O:DRAWR 80,48:DRAWR 140,0:DRAWR 20,12:PL 
OTR -20,-12:DRAWR 0,-236:DRAWR 20,-12:PL 
OTR -Z0,12:DRAWR -140,0:DRAWR 0,236:PLOT 
R -80,-48 
595 DRAWR 0,-140:DRAWR 80,-48:PLOTR -80, 
48:DRAWR -300,0:GOSUB 538:GOSUR 539:RETU 
RN 
596 INK 3,21:PLOT 420,68,0:DRAWR 100,0:P 
LOT 4270,100,3:DRAWR 20,-12:DRAWR 0,-60:D 
RAWR -20,1Z:DRAWR O,60:DRAWR 80,0:DRAWR 
20,-1Z:DRAWR 0,-60:DRAWR -80,0:PLOTR 0,6 
O:DRAWR 80, 0:RETURN 
597 INK 2,23:INK 3,2:CLS #1:PLOT 0,2,1:D 
RAW 640,2,1:PLOT 240,68,2:DRAUWR O, 200: PL 
OTR 160,0:DRAWR O,-200:DRAWR -160, 0: DRAW 
R -60,-60:PLOTR 220,60:DRAWR 60, -60 : DRAW 
R 0,260:PLOTR -280,0:DRAWR 0,-260: RETURN 
598 INK 3,5:PLOT 296,68,0:DRAWR 48,0:C=3 
00:D=38:GOSUE 41:PLOT 300,38,3:DRAWR 40, 
Q:RETURN 
599 A=104:FOR P=4 TO 206 STEP Z:PLOT 4,6 
8,Z2:DRAW P,8:PLOT A-1,68,0:DRAW B-1,8:4 
A+1:NEXT B:PLOT 100, 6B,Z:DRAUR 0, 60: FOR 
A=208 TO 436:PLOT À, 68, 2 : DRAUR 0,-60:PL 
OT A-2,68,0:DRAUR 0,-60:NEXT À 
600 A=438:FOR P=438 TO 640 STEP Z:PLOT À 
,68,2:DRAW P,8:PLOT A-1,68,0:DRAW P-1,8: 
A=A+1:NEXT B:PLOT 540,68, 2:DRAWR 0,-60:R 
ETURN 
601 GOSUR 535:PLOT 240,68,0:DRAWR 160,0: 
PLOT 244,60, 3:DRAWR 0,16:DRAWR 152,0:DRA 
WR O,-16:DRAWR -152,0:PLOTR -4,-4:DRAWR 
0,24:DRAWR 160,0:DRAWR 0,-24:DRAWR -160, 
O:PLOTR 40,24,1:DRAWR 0,56:DRAWR 12,8:PL 
OTR -4,16:DRAWR O,-12:DRAWR 12,-8:DRAWR 
40,0 
602 DRAWR 17,8:DRAWR 0,1%:PLOTR -16,-20: 
DRAWR -4,-12:DRAWR -8,-8:DRAWR -8, 0: DRAW 
R -8,B:DRAWR -4,12:PLOTR 44,4:DRAWR 12,- 
B:DRAWR 0,-56:PLOT 280,208,0:DRAWR 80,0: 
PLOTR -4,-4,1:DRAWR O,-16:DRAWR -4,-2B:D 
RAWR -4,-B:DRAWR —4,-4:DRAWR -48,0:DRAWR 
4, 4 
603 DRAWR -4,8:DRAWR 
OTR 2, 


—4,Z8:DRAWR 0,16:PL 
-28:DRAWR —-=,0:DRAWR 0,-8:DRAUR 4, 
O:PLOTR 64,0:DRAWR 4,0:DRAWR 0,8:DRAWR -— 
Z,0:PLOTR Z,1Z:DRAWR -28,0:DRAWR 0,-£4:D 


RAWR -16,0:DRAWR 0, 24:DRAWR --28,0:PLOTR 
12,0:DRAUR -4,-4:DRAWR O0,-8:DRAWR 4,-4:D 

RAWR 12,0 

604 DRAWR 4,4:PLOTR O,B:DRAWR -4,4:PLOTR 

-20:DRAWR 4,0:DRAWR O,-4:PLOTR 8,0:DR 

AUR 0, 4:DRAUR 4,0:PLOTR 0,16:DRAWR 4,4:P 

LOTR 12,0:DRAWR 4,-4:DRAWR O,-B:DRAWR -4 
,-4:DRAWR -12,0:DRAWR -4,4:PLOTR 0,-1Z:D 

RAWR 16,0:DRAWR 4,-4:DRAWR 0,-8:PLOTR -4 
4 

Li 

605 DRAWR -48,0:PLOTR —-4,-4:DRAWR 0,8:DR 

AUR 4,4:DRAWR 16,0:PLOTR -28,40:DRAWR 72 
,0: DRAUR 4,4:DRAWR 0, 24: DRAUR —4,4: DRAWR 
4,4:DRAWR D,24:DRAWR —4,4:DRAWR -72,0:D 
RAWR —4,-—4:DRAWR 0, -24 : DRAWR 4,4: DRAWR 

72,0:PLOTR -72,0:DRAWR -4,-4:DRAWR 0,-24 
:DRAUR 4,-4 

606 RETURN Æ 








cher tous les caractères (y compris ceux redéfinis par l'utilisateur) en dou- 
ble hauteur, double largeur ou double taille (les deux ensemble). Il 
introduit, pour ce faire, 4 instructions en RSX (Resident System Extension). 


C e programme permet, quel que soit le mode d'affichage (0, 1 ou 2), d'affi- 


’Ecri 
?C. À 


ture en double taille 
.Couchot 1985 


A=&8000:FÔ0R 1=100 TO 400 STEP 10:S=0 


FOR J 
READ 
NEXT 
READ 
NEXT 
CALL 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


=i TO 10 


XH:XX=VAL("&"+XH) :PORE A,XX:S=S+XX:A=A+I 


J 


XX:IF S£:XX THEN PRINT "Erreur en ligne";1l:END 


I 


&8000:PRINT "Double taille initialisee":END 


2A,D4,EBD,22?,2E,80,01,13,80,21,829 

0F,80,C3,D1,E2C,00,00,00,00,21,768 

80, C3, 2D, 80, C3,34,80,C3,32,80,1253 
C3,42,80,44,CC,44,CB,44,D4,53,1292 
D4,00,C3,FF,FF,21,49,80,22,D4,1397 
PD,C9,71,97,80,22%,D4,PD,C9,21,1371 
cE,80,22Z,D4,PD,C9,ZA,2B,80,22,1217 
D4,PD,C9,F5,E5,1E,02,CD,A5,BE, 1665 
3E,19,CD,5A,PP,3E,FF, CD,5A,BE, 1366 
0E,08,06,04,56,4F,CP,4P,20,0E,617 

CR,22,CP,22,CB,22, CB, 22, 18,04, 976 

CP,27,CE,27,CE,22,30,02,F6,03, 1020 
10,F4,CD,5A,BP,23,0D,20,DB,3E, 1103 
FF,E1,D5,E5,CD,2A,80,E1,D1,1D,1760 
C8,3E,09,CD,5A,BB,F1,24,E5,18,1283 
B6,F5,2D,E5,1E,02,CD,A5,RE,3E, 1352 
19,CD,5A,PBB,3E,FF, CD,54,RB,06,131% 
04,CB,4P,20,04,23,23,23,23,7E, 584 

CD,5A,PE,CD,5A,BB,23,10,F6,3E, 1323 
FF,E1,D5,E5,CD,2A,80,E1,2C,D1,1775 
1D,C8,F1,E5,18,CE,F5,2D,E5,1E,1478 
04,CD,A5,PP,3E,19,CD,54,BP,3E,1192% 
FF, CD,5A,BB,CB,43,28,04,23,23,1121 
23,23,0E,04,06,04,56,7B,FE,03,564 

30,08,CE,22,CB,22,CP,22,CE,22,1004 
AF,CB,27,CB,27,CB,22,30,02,F6,1192 
03,10,F4,CD,5A,BE,CD,5A,BE,23,126% 
0D,20,D9,3E,FF,E1,D5,E5,CD,ZA, 1493 
80,E1,D1,CPB,43,C2,21,81,2C,72,1355 
FE,03,C2,7E,81,3E,09,CD,5A,PPB,1179 
2D,74,F1,1D,C8,F5,E5,18,9E,00,1207 





ECRITURE 


en tailles diverses 
sur AMSTRAD 


A. COUCHOT 








— | DH pour écrire en double hauteur 
— | DL pour écrire en double largeur 
— | DT pour écrire en double taille 

— | ST pour revenir en simple taille. 

Il n'y a rien à modifier dans les PRINT (on 
peut même utiliser PRINT USING), mais 
les déplacements de curseur se font tou- 
jours en simple taille ; attention donc à 
ne pas surimprimer les lignes. 


TECHNIQUE 


Ce programme utilise 3 adresses 
système : 

— TXT WR CHAR - affiche le caractère 
dont le code ASCII est passé dans A. La 
valeur à cette adresse est préalablement 
sauvegardée dans REL puis remplacée 
par l'adresse de l’un des programmes ci- 
dessus. 

— TXT GT MATRIX - renvoie dans HL 
l'adresse de la matrice du caractère dans 
A. Cette matrice est une suite de 8 
octets précisant quels points doivent être 
‘’allumés'’ lors de l'affichage de ce 
caractère à l'écran. 

— TXT OUT ACTION - exécute les 
codes de commande ASCII (voir 
manuel). Celui utilisé ici est le code # 19 
qui doit être suivi d'un numéro de carac- 
tère et de 8 octets qui redéfinissent la 
matrice de ce caractère. 


PRINCIPE 


A chaque appel de TXT WR CHAR, on 
redéfinit le caractère #FF et on affiche 
ce caractère modifié. 

— Double hauteur: chaque ligne de la 
matrice d'origine est envoyée deux fois 
et le caractère # FF est défini et affiché 
deux fois pour la moitié supérieure et 
inférieure. 

— Double largeur : pour chaque ligne de 
la matrice d'origine, on parcourt le quar- 
tet droit ou gauche et pour chaque bit à 
1 dans la demi-matrice, on met deux bits 
à 1 dans la matrice finale. On répète 
l'opération deux fois pour la moitié droite 
et gauche. 

— Double taille : combinaison de double 
largeur et double hauteur. 











CPC Revue standard Amstrad Schneider 
dossier classeur jean, logo et titre blanc 
Prix TTC port inclus : 74 F 

Abonnés : S1F 


THEORIC, Revue des utilisateurs d’ORIC 
dossier classeur gris, logo titre rouge 

Prix TTC port inclus : 80 F 

Abonnés : 59F 


MEGAHERTZ Magazine 

dossier classeur noir, logo et titre doré 
Prix TTC port inclus : 78 F 

Abonnés :55F 


x 


BON DE COMMANDE 


Se Ne AU ee Prénom: 25: «nb aurai ri Adresse Ana en hante he 


MEGAHERTZ Abonnés 


CPC 


Theoric 





Non Abonnés Bon de commande à retourner aux 
Abonnés Editions SORACOM 

; La Haie de Pan 

Non Abonnés 35170 BRUZ 
Abonnés Attention : 

Non Abonnés 1 chèque par bon de commande 
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Hit Squad 

Hit Squad 

Elite 

Durell 

Palace Software 
Durell 
Melbourne 
Ocean 

Vortex 

Vortex 

Digital intégration 
Kjonami 

Elite 

Gremlins graphic 
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Gremlins graphic 
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VERBES 














ALLE-- 
MANDS 


David TAVERNE 


que qui permet à l'utilisateur de : 


VW: Forts Allemands est un programme pédagogi- 


— rechercher le sens d’un verbe fort allemand en fran- 
çais (pratique pour les versions) ; 
— rechercher la traduction d'un verbe français en allemand 
(pratique pour les thèmes) si c’est un verbe fort ; 
— se faire interroger par l'ordinateur sur le sens français d’un 
verbe fort allemand (exercice de version) ; 
— se faire interroger par l'ordinateur sur la traduction alle- 
mande d'un verbe français (exercice de thème) ; 
— avoir la liste des verbes avec toutes leurs formes et leur(s) 


traduction(s). 











ne où je ue ne où où on ne on où un on ne me me ue on 





MODE D'EMPLOI 
DE CHAQUE MODULE 


Répertoire Allemand-Français 

A la question Verbe Allemand, il faut 
entrer le verbe allemand que vous recher- 
chez à l'infinitif, et l'ordinateur vous 
répondra en 3 secondes maximum. | 
mettra la ou les traductions du verbe 
recherché. 


5: ":LOCATE 


16,<: PRINT 


Répertoire Français-Allemand 

A la question Verbe Français, il faut 
entrer le verbe français que vous recher- 
chez à l'infinitif, et l'ordinateur mettra 
toutes les formes de ce verbe (infinitif, 
prétérit, participe passé). 


«NOTE : Si l'ordinateur ne trouve pas de 


traduction au verbe entré, il ne répondra 
rien. 


Exercice de version 

Vous pouvez être interrogé suivant deux 
façons : soit dans un ordre aléatoire, soit 
dans un ordre alphabétique (suit l'ordre 
des Datas). 

Après, c'est la même chose dans les 
deux cas : l'ordinateur demande de tra- 
duire un verbe allemand en français. Si 
la traduction est bonne, l'ordinateur mar- 
que ‘‘’très bien’ et vous ajoutez 1 point 
à votre score, sinon, l'ordinateur marque 
‘faux’, vous donne la correction et vous 
ne marquez pas de point. 


Exercice de thème 

Pour l'ordre d'interrogation, 
dessus. 

L'ordinateur vous demande de traduire 
en allemand un verbe français. Il faut 
donc entrer les trois formes du verbe 
(infinitif, prétérit, participe passé). Si les 
trois réponses sont bonnes, l'ordinateur 
marque ‘très bien'’ et vous ajoutez à 
votre score 1 point, sinon, l'ordinateur 
marque ‘‘faux'’, vous donne la correc- 
tion et vous ne marquez pas de point. 


voir ci- 


Liste des verbes 

Cette option vous donne la liste des ver- 
bes classés phonétiquement. À chaque 
verbe correspond son infinitif, son pré- 
térit, son participe passé et sa ou ses tra- 
duction(s). 

Pour passer à la page suivante, il faut 
presser une touche. 





PRET HN DE DE DE D DEN DÉ DE DEEE DE DE DEEE DE DE EH N O:LOCATE 1,3:PRINT "-; DANS LA PARTI 
REM x VERBES FORTS ALLEMANDS **% |E REPERTOIRE FRANCAIS-ALLEMAND ET LA PA 
REM #% D O& S  TAVERNE #x | RTIE LISTE DES VERBES,LES VERBES SUIV 
REM #% LE 11 / 1% /1984 ##% | IS D'UN  ASTERISQUE PRENNENT L'’AUXILI 
REM ee Me DEEE DH HE DEEE DE DEEE EME HD DE DE HE DE JE EN | AIRE " 
REM==zsnmsemeCARACTERES======225225x [10 PEN SG:LOCATE 24,6:PRINT "SEIN" 
SYMROL AFTER 3% | 220 PEN O:LOCATE 1,8:PRINT "-> DANS LA P 
SYMBOL 37,120,198,198,232,198,198,2:48 | ARTIE EXERCICE,APRES AVOIR REPONDU COR 


90 SYMEOL 163,108,0,1%:4,198,198,198,17X4, 
SYMEOL 33,10%,0,10%,10Z,10Z,10%,60, 


SYMBOL 95,108,0,120,1%,124,204,118 





RECTEMENT À UNE QUESTION, UN 
LA TOUCHE 
MENU GENERAL" 

[230 PEN 3:LOCATE 33,10:PRINT 
£40 PEN O:!:LOCATE 1,13:PRINT"-: 
ARTIE EXERCICE, VEUILLEZ NE PAS METTRE D 


NGE SUR 





a’ VOUS RAMENERA AU 


"a" 


120 CLS | ESPACE AVANT LA REPONSE" 

130 REM========22=REMARQUE======222szss | 50) LOCATE 9,16:PRINT "  CARACTERES REDE 
140 MODE 1:INK 1,24:INK O,Z:PEN Os: PAPER | FINIS" 

1:PORDER Z:CLS 60 LOCATE 9,17:PRINT "  =====2e=sssssses 
150 CLS:LOCATE 3,12:INPUT "VOULEZ-VOUS L'| =zzz2" 

ES INSTRUCTIONS (O/N)"3QUESTS# 270 LOCATE 14,182PRINT M 
160 IF QUEST$="O" OR QUEST#="o" THEN 190 | —----- ) 

170 IF QUEST$="N" OR QUESTS$="n" THEN 360 290 LOCATE 14,19:PRINT ": î ! V2 ! 
180 GOTO 150 | 1 " i":LOCATE 5,19:PRINT "ORTIENT:"; 
190 CLS:PORDER 11 300 LOCATE 14,202: PRINT M 
Z00 LOCATE 16,1:PEN 3:PRINT "INSTRUCTION! " 





APPUI PROLO 


DANS LA P 


310 LOCATE 14,21: P 
RINT 0. À CE 5 6.4 ci D FVLocAt 
E 1,21:PRINT " PAR SHIFT +"; 

320 LOCATE 14,223 PRINT 


330 PEN 3:LOCATE 2Z,25:PRINT "POUR CHARGE 
R K7 APPUYEZ SUR UNE TOUCHE"; 

340 CALL &P218 

350 REM 

360 MODE 0 

370 CLS 

380 BORDER 4 

390 WINDOW #1,1,20,1,8:WINDON #Z,1,20,9, 
16:WINDOW #3,1,20,17,24 

400 PAPER #1,5:PAPER #2,3:PAPER #3,1:CLS 
#1:CLS#T: CLSHI 

410 A$="VERRES FORTS" 

420 B$="S’ENREGISTRE" 

430 C$=" ALLEMANDS" 

44D A=LEN(A#):FOR AA=1 TO A:PEN 10:LOCAT 
E 5,4:PAPER 5:PRINT LEFT#(A$,AA):NEXT AA 
450 C=LEN(C#H):FOR CC=1 TO C:PEN 12:LOCAT 


E 6,1Z2:PAPER G:PRINT LEFT#H(CH,CC):NEXT C 
C 

460 P=LEN(PH):FOR PRE=1 TO BR:PEN 7:PAPER 

1:LOCATE 5,ZO:PRINT LEFT#(PS$,PP)3NEXT BF 
470 PAPER 5:PEN 3:LOCATE 10,Z4:PRINT " V 
EUILLEZ PATIENTER 
“lverbesl" 


CE 
L 


480 RUN 
















10 REM JECHHOHE EDEN DE HEEDE DE DÉDE DE DEEE EEE 

“0 RENM * VERRES FORTS * 

30 REM * ALLEMANDS * 

40 RENM * PAR * 

50 REM #DAVID ET SERASTIEN* 

60 REM * TAVERNE * 

70 REM * LE 3/10/1985 # 

90 REM HD HN DEHE DE DEMO DE DE DEMO HE DE JE DEEE 

90 REM==========CARACTERES======2E55E2x# 
100 SYMPOL AFTER 3% 

110 SYMBOL 37,120,198,198,252,198,198,24 
8,19% 

120 SYMBOL 163,108,0,124,198,198,198,124 
0 

130 SYMBOL 33,102,0,102%,102,102,10%,60, 
0 

140 SYMBOL 95,108,0,120,12%,1%4,204,118 
150 CLS 

160 sessessss mesmmesess 


170 MODE 0 

180 SPEED KEY %0,%x0 

190 BORDER 1:INK 3,6:INK 4,245: INK 5,9:IN 
K O,0:PEN O:PAPER Z:CLS:LOCATE 14,33:PEN 


S:PRINT "D et S"'s:LOCATE 13,4:PRINT "TAVE 
RNE":PEN O:PEN 5:LOCATE 10,5:PRINT "pres 
entent":LOCATE Z,8:PEN O:PRINT "VERBES" : 


LOCATE 7,13:PRINT "FORTS" 

200 LOCATE 10,18:PRINT "ALLEMANDS" ; CHRS ( 
164) 

210 PEN 3:FOR I=i TO Z0:LOCATE I,1:PRINT 
CHR$#(137):LOCATE I,25:PRINT CHR$(137)3;: 

NEXT I:FOR J=i TO 243LOCATE 1,J:PRINT CH 
R$(137):LOCATE 20,J:PRINT CHR$(137):NEXT 
J:PEN 0 

220 FOR i=3 TO 5:LOCATE i,15:PEN O:PRINT 
CHR$(143)3;:NEXT i:FOR i=3 TO 5S:LOCATE i 
,16:PEN 3:PRINT CHR$(143)5;:NEXT i:FOR i= 

3 TO S:LOCATE i,17:PEN 4:PRINT CHR#(143) 
;:NEXT i:PLOT 56,178:DRAW 56,100:PLOT 53 
,177:DRAN 62,177:PLOT 53,176:DRAW 62, 176 


:GOTO 1670 
#30 REM=z=z=z==22=zz2z==MUSIQUE=S=sesssssess 
Z240 DATA 319,159,319,:84 


#50 
£60 
#70 
280 
“90 
300 


DATA 253,159,253,239 
DATA 213,159,190, 159 
DATA 213,159,213,253 
DATA 239,426,2439,213 
DATA 253,426,253,239 
DATA 379,319,338, 284 


310 DATA 213,150 

320 REM=====LISTE DES VERPRES FORTS==2=x 

330 DATA BACKEN, RUK, GERACKEN, CUIRE (AU F 
OUR), ; 

‘340 DATA FAHREN, FUHR, GEFAHREN, ALLER (EN 


VOITURE OÙ EN BATEAU), ,# 

350 DATA GRAPEN, GRUR, GEGRAPEN, CREUSER, , 
360 DATA LADEN, LUD, GELADEN, CHARGER, , 

370 DATA SCHAFFEN, SCHUF, GESCHAFFEN, CREER 


7? 

‘380 DATA SCHLAGEN, SCHLUG, GESCHLAGEN, BATT 

RE, ; | 

390 DATA TRAGEN, TRUG, GETRAGEN, PORTER, , 

400 DATA WACHSEN, WUCHS, GEWACHSEN, CROÎTRE 
* 

4.1 

410 DATA WASCHEN, WUSCH, GEWASCHEN, LAVER, , 

420 DATA BLASEN, PLIES, GEBLASEN, SOUFFLER, 


430 DATA PRATEN,PBRIET,GEPRATEN, ROTIR, , 
440 DATA FALLEN,FIEL, GEFALLEN, TOMBER, , % 
450 DATA FANGEN,FING, GEFANGEN, ATTRAPER, , 
460 DATA HALTEN,HIELT, GEHALTEN, TENIR, 5’ À 
RRETER, 

470 DATA HANGEN,HING, GEHANGEN,ETRE SUSPE 
NDU, , 

480 DATA LASSEN,LIEX, GELASSEN, LAISSER, , 
490 DATA RATEN,RIET, GERATEN, DEVINER, CONS 
EILLER, ; 

500 DATA SCHLAFEN, SCHLIEF , GESCHLAFEN, DOR 
MIR 

510 DATA PEFEHLEN, PEFAHL, BEFOHLEN, ORDONN 
ER, COMMANDER, 

570 DATA BERGEN, RARG, GERORGEN, CACHER, DIS 
SIMULER, 

530 DATA BRECHEN, BRACH, GERROCHEN, BRISER, 
CASSER, 

540 DATA EMPFEHLEN, EMPFAHL, EMPFOHLEN, REC 
OMMANDER, , 


550 DATA ERSCHRECKEN, ERSCHRAK, ERSCHROCKE 
N,S’EFFRAYER, AVOIR PEUR, * 

560 DATA GELTEN, GALT, GEGOLTEN, VALOIR, , 
570 DATA HELFEN,HALF, GEHOLFEN, AIDER, , 
580 DATA NEHMEN, NAHM, GENOMMEN, PRENDRE, , 
590 DATA SCHELTEN, SCHALT, GESCHOLTEN, TRAI 
TER DE, GRONDER, 

600 DATA SPRECHEN, SPRACH, GESPROCHEN, PARL 
ER, , 

610 DATA STECHEN, STACH, GESTOCHEN, PIQUER, 
L 

620 DATA 
EROBER, 
630 DATA 
5 * 

640 DATA TREFFEN, TRAF, GETROFFEN, ATTEINDR 
E, RENCONTRER, 

650 DATA VERDERPEN, VERDARE, VERDORBEN, SE 
GATER,SE CORROMPRE, * 

660 DATA WERBEN, WARE, GEWORBEN, RECHERCHER 


STEHLEN, STAHL, GESTOHLEN, VOLER, D 


STERPBEN, STARE, GESTORBEN, MOURIR, 


" 
670 
680 
+ 
690 DATA ESSEN, A4, GEGESSEN, MANGER, , 

700 DATA FRESSEN, FRAZ, GEFRESSEN, MANGER ( 
ANIMAUX), , 

710 DATA GEPEN, GAR, GEGEREN, DONNER, , 

720 DATA GENESEN, GENAS, GENESEN, SE GUERIR 


DATA WERFEN,WARF, GENORFEN, JETER, , 
DATA WERDEN, WURDE, GEWNORDEN, DEVENIR, , 


LE] 

730 DATA GESCHEHEN, GESCHAH, GESCHEHEN, AVO 
IR LIEU, ,* 

740 DATA LESEN,LAS, GELESEN, LIRE, , 

750 DATA MESSEN, MA%Z, GEMESSE, MESURER, , 
760 DATA SEHEN, SAH, GESEHEN, VOIR, , 

770 DATA TRETEN, TRAT, GETRETEN, MARCHER, , * 
780 DATA VERGESSEN, VERGA%X, VERGESSEN, OUPL 
IER, , 

790 DATA BITTEN,PAT,GEPETEN,PRIER, , 

800 DATA LIEGEN, LAG, GELEGEN,ETRE ENTENDU 


59 
810 DATA SITZEN,SA%, GESESSEN,ETRE ASSIS, 


, 

820 DATA DRESCHEN, DROSCH, GEDROSCHEN, BATT 
RE (LE BLE),, 

830 DATA FECHTEN, FOCHT, GEFOCHTEN,SE PBATT 
RE AU SABRE,FAIRE DE L’'ESCRIME, 

840 DATA FLECHTEN, FLOCHT, GEFLOCHTEN, TRES 
SER, , 

50 DATA HEBREN,HOP, GEHOPEN, SOULEVER, , 
860 DATA MELKEN, MOLK, GEMOLKEN, TRAIRE, , 
870 DATA QUELLEN, QUOLL, GEQUOLLEN, JAILLIR 
, SOURDRE, * 

80 DATA SCHEREN, SCHOR, GESCHOREN, TONDRE, 


3 

890 DATA SCHMELZEN, SCHMOLZ, GESCHMOLZEN, F 
ONDRE, , * 

900 DATA SCHNELLEN, SCHWOLL , GESCHWOLLEN, E 
NFLER, GONFLER, 

10 DATA WEPEN,WOB, GEWOPREN,TISSER, , 

920 DATA ERLINPUTSCHEN, ERLOSCH, ERLOSCHEN 
,S’ETEINDRE, , | 

930 DATA SCHWINPUTREN, SCHWOR, GESCHWOREN, 
JURER, , 

40 DATA PLEIPEN, PLIEP, GEBLIEPEN, RESTER, 
s* 

950 DATA GEDEIHEN, GEDIEH, GEDIEHEN, PROSPE 
RER, , 











960 DATA LEIHEN, LIEH, GELIEHEN, PRETER, , 
970 DATA MEIDEN,MIED, GEMIEDEN,EVITER, , 
980 DATA PREISEN, PRIES, GEPRIESEN, VANTER, 
LOUER, 

990 DATA REIPEN,RIER, GERIEPEN, FROTTER, , 
1000 DATA SCHEIDEN, SCHIED, GESCHIEDEN, SEP 
ARER,SE SEPARER, * 

1010 DATA SCHEINEN, SCHIEN, GESCHIENEN, PAR 
AITRE, BRILLER, 

1020 DATA SCHREIBEN, SCHRIER, GESCHRIEPBEN, 
ECRIRE, , 

1030 DATA SCHREIEN, SCHRIE, GESCHRIEN, CRIE 
R,; 

1040 DATA SCHWEIGEN, SCHWIEG, GESCHWIEGEN, 
SE TAIRE, , 

1050 DATA SPEIEN, SPIE, GESPIEN, CRACHER, , 
1060 DATA STEIGEN,STIEG, GESTIEGEN, MONTER 
3% 

1070 DATA TREIBEN, TRIELB, GETRIEREN, POUSSE 
R,FAIRE AVANCER, 

1080 DATA VERZEIHEN, VERZIEH, VERZIEHEN, PA 
RDONNER, , 

1090 DATA WEISEN,WIES, GEWIESEN, MONTER, , 
1100 DATA SICH PREFLEIXZEN, BREFLIZ, PEFLISSE 
N,S’ APPLIQUER À,, 

1110 DATA PEIYXEN, PIX, GEBISSEN, MORDRE, , 
11720 DATA ERBLEICHEN,ERBLICH,ERBLICHEN, P 
ALIR, ,* 
1130 DATA 
MBLER, , 
1140 DATA 
R,,% 
1150 


GLEI CHEN, GLICH, GEGLI CHEN, RESSE 
GLEITEN, GLITT,GEGLITTEN, GLISSE 


DATA GREIFEN, GRIFF, GEGRIFFEN, SAISIR 


L 2e | 
1160 DATA KNEIFEN,KNIFF,GEKNIFFEN, PINCER 


, 
170 DATA LEIDEN,LITT,GELITTEN, SOUFFRIR, 
L 
1180 
R;,; 
1190 DATA REIZEN,RIZ,GERISSEN, (SE) ROMPR 
E,DECHIRER, | 
1200 DATA REITEN,RITT,GERITTEN, ALLER À C 
HEVAL, , * 

1210 DATA SCHLEICHEN, SCHLI CH, GESCHL I CHEN 
,SE GLISSER, , * 

12#0 DATA SCHLEIFEN, SCHLIFF, GESCHLIFFEN, 
AIGUISER, , 

1230 DATA SCHMEIZEN, SCHMIX, GESCHMISSEN, J 
ETER VIOLEMMENT, , 

1240 DATA SCHNEIDEN, SCHNITT, GESCHNITTEN, 
COUPER, , 

1250 DATA SCHREITEN, SCHRITT, GESCHRITTEN, 
MARCHER, , # 

1260 DATA STREICHEN, STRI CH, GESTRI CHEN, PA 
SSER, FROTTER, 

1270 DATA STREITEN,STRITT, GESTRITTEN, LUT 
TER,SE QUERELLER, 

1280 DATA WEICHEN,WICH, GEWICHEN, CEDER, , # 
1290 DATA BINDEN, BAND, GERUNDEN, LIER, , 
1300 DATA DRINGEN, DRANG, GEDRUNGEN, PENETR 
ER, , # 
1310 DATA 
1320 DATA 
IR, , * 
1330 DATA 
ER, , 

1340 DATA 


DATA PFEIFEN, PFIFF, GEPFIFFEN, SIFFLE 


FINDEN, FAND, GEFUNDEN, TROUVER, , 
GEL INGEN, GELANG, GELUNGEN, REUSS 


KLINGEN, KLANG, GEKLUNGEN, RESONN 


RINGEN, RANG, GERUNGEN, LUTTER, , 





1350 DATA SCHLINGEN, SCHLANG, GESCHLUNGEN, 
ENLACER, , 

1360 DATA SCHWINGEN, SCHWANG, GESCHWUNGEN, 
BRANDIR, , 

1370 DATA SINGEN, SANG, GESUNGEN, CHANTER, , 
1380 DATA SINKEN, SANK, GESUNKEN, S’ENFONCE 
R, SOMBRER, x 

1390 DATA SPRINGEN, SPRANG, GESPRUNGEN, SAU 
TER, , * 

1400 DATA TRINKEN, TRANK, GETRUNKEN, POIRE, 


L 

1410 DATA VERSCHWINDEN, VERSCHWAND, VERSCH 
WUNDEN, DISPARAITRE, , * 

1420 DATA ZWINGEN, ZWANG, GEZWUNGEN, FORCER 
, CONTRAINDRE, 

1430 DATA BEGINNEN, BEGANN, BEGONNEN, COMME 
NCER, , 

1440 DATA GEWINNEN, GEWANN, GEWONNEN, GAGNE 
R,, 

1450 DATA RINNEN, RANN, GERONNEN, COULER, , * 
1460 DATA SCHWIMMEN, SCHWAMM, GESCHWOMMEN, 
NAGER, , 

1470 DATA SINNEN, SANN, GESONNEN, REFLECHIR 


77 

1480 DATA SPINNEN, SPANN, GESPONNEN, FILER 
(TEXTILE), , 

1490 DATA BIEGEN, B0G, GEROGEN, PLIER, DECLI 
NER, 
1500 
1510 
1520 
1530 
5* 
1540 
1550 
1560 
R,; 
1570 DATA RIECHEN, ROCH, GEROCHEN, SENTIR, , 
1580 DATA SCHIEPBEN, SCHOB, GESCHOBEN, POUSS 
ER, GLISSER, 

1590 DATA SCHIEZEN, SCHOX, GESCHOSSEN, TIRE 
R, LANCER, 

1600 DATA SCHLIEYZEN, SCHLOX, GESCHLOSSEN, F 
ERMER, , 


DATA PBIETEN,POT,GEBOTEN,OFFRIR,, 

DATA FLIEGEN,FLOG, GEFLOGEN, VOLER, , # 
DATA FLIEHEN,FLOH, GEFLOHEN, FUIR, , # 
DATA FLIEZEN,FLOY%X, GEFLOSSEN, COULER, 


DATA FRIEREN,FROR, GEFROREN, GELER, , 
DATA GIEZEN, GO%, GEGOSSEN, VERSER, , 
DATA KRIECHEN, KROCH, GEKROCHEN, RAMPE 





: 
, 


DAT AN 








1610 DATA VERLIEREN, VERLOR, VERLOREN, PERD 
RE, ;, 

16720 DATA WIEGEN,WOG, GEWOGEN, PESER, , 
1630 DATA ZIEHEN,Z0G, GEZOGEN,TIRER, , 
1640 DATA PETR'GEN, RETROG, RETROGEN, TROMP 
ER, ; 

1650 DATA L'GEN,LOG, GELOGEN,MENTIR, , 
1660 REM####%##PROGRAMME PRINCIPAL #%#x3464 x 
1670 FOR N=1i TO Z8:READ M:SOUND 4,M,20,1 


5:SOUND 4,M,20,15:NEXT N 

1680 READ M:READ N:SOUND 4,M,N,15 
1690 FOR u=i TO 3O0:NEXT u 

1700 MODE 1:PBORDER 11:PEN 3:PAPER 2Z:MODE 
1:CLS:LOCATE 6,5:PRINT"REPERTOIRE. 


Venus .i" 
1710 LOCATE 6,10:PRINT"EXERCI 
DÉéeL hs uéer Ron 2" 

1720 LOCATE 6,15:PRINT"LISTE 
DES VERBES........3" 

1730 LOCATE 6,24:INPUT "QUE CHOISISSEZ-V 
OUS" 5; REP 

1740 IF REP>3 OR REP“1 THEN GOTO 1700 
1750 IF REP=1 THEN GOTO 1790 

1760 IF REP=2 THEN GOTO 2130 


1770 IF REP=3 THEN GOTO 3310 

1780 REMxkkkkkxR E PE RT OO I R Exkxkxkxkkx 
1790 CLS:LOCATE 6,10: PRINT"'FRANCAIS-ALLE 
MAND......1" 

LOCATE 6,15 :PRINT'"ALLEMAND-FRAN 


ou 
CCC 


1810 LOCATE 6,19:INPUT "QUE CHOISISSEZ-V 


| QUS" ; REP 


1820 IF REP41 OR REP: 
1830 IF REP=1 THEN 1860 
1840 IF REP=Z THEN 1990 
1850 REM=======FRANCAIS-ALLEMAND======= 
1880 CLS 

1870 MODE 1 

1880 BORDER O:INK 0,Z4:INK 1,0:PEN O:PAP 

ER 1:CLS 

1890 PLOT 1,380:DRAW 640, 380,0 

1900 PLOT 1,340:DRAW 640, 340,0 

1910 LOCATE 7,3:PRINT "REPERTOIRE FRANCA 
IS-ALLEMAND" 

1920 WINDOW #0,1,40,6,253:CLS#0 

1930 LOCATE #0,7,7:LINE INPUT "Verbe fra 
ncais-* "iV$:VS=UPPERS(VS):IF v$="" THEN 
1930 

1940 RESTORE 330 

1950 FOR N=i TO 133 

1960 READ a%,b#,c#,t$,t2#$,nb:1F v$=t$ OR 
vV$=t=:$ THEN PEN 3:PRINT:PRINT:PRINT "IN 


THEN 1790 


FINITIF....,.... ";:PEN Z:PRINT a$;n$:PEN 
3:PRINT:PRINT "PRETERIT.....,.... "3 : PEN 
Æ:PRINT Db$:PEN G:PRINT:PRINT "PARTICIPE 


PASSE... "3;:PEN Z: PRINT c$ ELSE NEXT N 
1970 LOCATE 1,ZO0:PEN Os:PRINT "UN AUTRE V 
ERBE (O/N)"3:INPUT QUESTS#:IF QUEST#="Q" 
OR QUEST#="o" THEN 1860 ELSE IF QUEST#&=" 


N" OR QUEST$#="n" THEN 1700 ELSE 1970 
1980 REM======ALLEMAND-FRANCAIS======== 
1990 CLS 

“000 MODE 1 


010 BORDER O:INK 0,%4:INK 1,0:PEN 0O:PAP 
ER 1:CLS 

“020 LOCATE 7,3:PRINT"REPERTOIRE ALLEMAN 
D-FRANCAIS" 

“030 PLOT 1,380:DRAW 640, 380,0 


2040 PLOT 1,340:DRAW 640,340,0 

2050 WINDOW #0,1,40,6,25:CLS#0 

2060 LOCATE #0,7,7:LINE INPUT "Verbe all 
emand-: "s;va$:va$=UPPERS(va$) 

Z2070 IF va$="" THEN Z060 

“080 RESTORE 330 

Z2090 FOR nzi TO 133 

Z100 READ a$,b$,c#$,t#,t2$,n$: IF va$=a$ 

THEN PEN 3:PRINT :PRINT:PRINT"TRADUCTION 
———% MssIF tZ2<5"" THEN PEN Z:PRINT t$:;" 
ou "s5st2$ ELSE PEN Z:PRINT t#3;:ELSE NEXT 
n 

#110 LOCATE 1,20:PEN O:PRINT "UN AUTRE V 

ERPE (O/N)'"3:INPUT QUESTS:QUEST#=UPPERS ( 
QUEST#H):1F QUEST#="O0" THEN 1990 ELSE IF 
QUEST$="N" THEN 1700 ELSE 2110 

2170 REMk####X#HYKEE X EE RCI CErkx###xXX 

130 CLS:BRORDER 11:PEN 3G:PAPER %:CLS:LOC 
ATE 6,10:PRINT"'VERSION... 

:LOCATE 6,15:PRINT"'THEME... 

..":LOCATE 6,19:INPUT "QUE CHOISISSEZ V| 
OUS" ; REP 

“140 IF REP<1 OR REP? 
2150 IF REP=1 THEN GOTO 180 

#160 IF REP=Z THEN GOTO Z670 

z170 =zzss=2zz==== VERSION 

“1680 INK O0,24:INK 1,0:CLS:BORDER O:PEN 0 
: PAPER 1:CLS : NB=0 : RESUL =0 : CDV=0 

2190 LOCATE 1:,3:PRINT "EXERCICE DE VERS 
TION" 
z00 


z2210 


THEN GOTO 21930 


PLOT 1,380:DRAW 640, 380,0 
PLOT 1,340:DRAW 640, 340,0 
2270 WINDOW #0,1,40,6,2%4:CLS#0 
2230 CLS#O:LOCATE #0,1,8:INPUT"VOULEZ-VO 
US ETRE INTERROGE AU HASARD DE LA LISTE 
DES VERBES (O/N)"3QUESTS$ : CLS#O | 
2240 IF QUEST#="O" OR QUEST$="o" THEN GO 
TO 2470 
2250 IF QUEST#="N" OR QUEST#$="n" 
SHO:LOCATE #0,1,B:PRINT "VOUS SEREZ DONC. 
INTERROGE DANS L’ORDRE PHONETIQUE (LE! 
MEME QUE CELUI DE LALISTE DES VERRE 
G).":FOR I=1 TO 3O000:NEXT 1:CLS#0O:GOTO 
280 
2260 GOTO 2230 
2270 REM+++++++ORDRE PHONETIQUE+++4+++4++ 
2280 LOCATE #0,2,7:INPUT#0O,"COMBIEN DE V 
ERBES A REVISER" ; CDV: CLS#D:NE=0 
2290 RESTORE 330 
2300 FOR bn=1i TO CDV 
2310 READ a$,b$,c$,t$,t2$,n$ 
2320 NB=NB+1:1F NB=CDV+1 THEN LOCATE 5,1 
B:PRINT "RESULTAT:":SOUND 1,426,50,15:50 
UND 1,319,50,15:SOUND 1,239,50,15:FOR il 
=1 TO Z500:NEXT il:GOTO 2650:ELSE 2330 
2330 LOCATE #0,2,7:PEN O:PRINT #0," 
TRADUIRE "3:PEN Z:PRINT a% 
2340 LOCATE #0,6,11:PRINT 
PUT #0," 
2350 IF t1$="" AND Y#="" THEN GOTO 2380 
2360 IF Y$=t$ OR Y$=t2# THEN SOUND 1,319 
,50,15:SOUND 1,239,50,15:LOCATE 10,14:PR 
INT "TRES BIEN":FOR i=1 TO 7O00:NEXT i:CL. 
S#O:ELSE 2380 
2370 WINDOW #2,5,20,25,25S:PAPER #2,0:CLS 
#2: RESUL=RESUL+1: PEN 3:LOCATE #2,1,1:PR 
INTH2, RESUL 3" SUR CDV:;:FOR L=i TO 110 
O:NEXT L: IF INKEY(Z26)=0 THEN 1700 ELSE 


THEN CL 


7% 
£ 


M——ÿ"s2:LINE IN 
Ms YS:YH=UPPERS(Y#) 





| DE VERBES À REVISER 
2450 FOR IJ=1 TO CDV:GOSURB 


| <2540 


| 2570 


|O:NEXT L: 


NEXT bn 

2380 FOR I=i TO 5:FOR GG=1 TO ZOO:NEXT G 

G:LOCATE 10,14:PEN 3:PRINT "FAUX" :LOCATE 
10,14:FOR LLLL=1 TO SO:NEXT LLLL:PRINT 
” ":SOUND 1,428,10,15:FOR LLLei TO 10 

QO:NEXT LLL:NEXT I 

2390 LOCATE 1,16:PRINT 
tzt="" THEN PEN Z:LOCATE 12,16:PRINT t# 
:FOR i=1 TO 1000:NEXT i:ELSE PEN Z:LOCA 

TE 12,16:PRINT t$;" ou ";t2$:FOR k=0 TO 

1000:NEXT k 

2400 WINDOW #2,5,20,25,25:PAPER #2,0:CLS 

#2: RESUL=RESUL:PEN 3:LOCATE #2,1,1:PRINT 
#Z,RESUL;" SUR "3;CDV:CLS #O:FOR i=1 TO 
SOO:NEXT i:GO0TO 2310 

2410 REM++++++++O0RDRE ALEATOIRE++++4++++ 
2420 RANDOMIZE TIME 

2430 BORDER O:PEN O:PAPER 1:CLS:PLOT 1,3 
80:DRAW 640,380,0:PLOT 1,340:DRAW 640,34 


"CORRECTION: "33:IF 


|O,O:WINDOW #0,1,40,6,Z4:CLS#O 


2440 CLS#O:LOCATE #0,1,83:INPUT 
“ ; CDV 


"COMBIEN 


2460:NEXT 1J 
2460 NP=NP+1:1F NB=CDV+1 THEN LOCATE 5,1 
BePRINT "RESULTAT:":SOUND 1,426,50,15:S0 
UND 1,319,50,15:SOUND 1,239,50,15:FOR Ii 
=1 TO ZSOO:NEXT Ii:GOTO 1700:ELSE %470 
2470 AAA=INT(RNDX(34-1+1))+1 

2480 PBP=INT(RND#(34-1+1))+1 

2490 CCC=INT(RND#(34-1+1))+1 

2500 DDD=INT(RND#X(34-1+1))+1 

2510 EEE=AAA+PBR+CCC+DDD 

2520 IF EEE+133 OR EEE“=0 THEN GOTO 2470 
2530 RESTORE 330 

FOR III=1 TO EEE 

READ a$,b#$,c$,t$,tz$,n$ 

NEXT III 

CLS#O:LOCATE #0,2,7:PEN O:PRINT #0, 
“ TRADUIRE "3:PEN Z:PRINT a$:LOCATE 
#0,6,11:PRINT "—->"352:LINE INPUT #0," "3Y 
$:YS=UPPERS (Y$) 

2580 IF tZ#="" AND Y#="" THEN GOTO 2610 
2590 IF Yé=t$ OR Y$=t2# THEN SOUND 1,319 
,50,15:SOUND 1,239,50,15:LOCATE 10,14:PR 
INT "TRES BIEN":FOR i=1 TO 7O00:NEXT i:CL 
G#O:ELSE 2610 

600 WINDOW#Z,5,20,25,25:PAPER #2,0:CLS# 
2: RESUL=RESUL+1:PEN 3: LOCATE #2,1,1:PR 
INTHZ, RESUL ;" GUR CDV;:FOR L=1 TO 110 
IF INKEY(Z6)=0 THEN 1700 ELSE 


4350 
z2360 


ie 
L 


640 

“610 FOR I=1 TO S:FOR GG=1 TO ZOO:NEXT G 

G:LOCATE 10,14:PEN G:PRINT "FAUX":LOCATE 
10,14:FOR LLLL=1 TO SO:NEXT LLLL:PRINT 


[" “sSOUND 1,428,10,15:FOR LLL=I TO 10 
[QO:NEXT LLL:NEXT I 


2620 LOCATE 1,16:PRINT "CORRECTION:"3;:1F 
t2#%="" THEN PEN Z:LOCATE 12,16:PRINT t$ 
:FOR i=1 TO 1000:NEXT i:ELSE PEN Z:LOCA 

TE 12,16:PRINT t#$5;" ou ";3t2$:FOR k=0 TO 

1O00:NEXT k 

2630 WINDOW #2,5,20,25,25:PAPER #Z,0:CLS 

#2: RESUL=RESUL:PEN G:LOCATE #2,1,1:PRINT 
#2, RESUL;" SUR ";CDV:CLS #O0:FOR i=1 TO 

SOO:NEXT i 

640 RETURN 

2650 GOTO 1700 

2660 REM 





Z670 INK O0,24:INK 1,0:BORDER O:PEN O:PAP 
ER 1:CLS3NB=0:RESUL=QO:CDV=0 

2680 LOCATE 12,3:PRINT "EXERCICE DE THEM 
E" 

690 WINDOW #0,1,40,6,25:CLS#0 

2700 PLOT 1,380:DRAW 640,380,0 

2710 PLOT 1,340:DRAW 640, 340,0 

2720 LOCATE #0,1,8:INPUT "VOULEZ-VOUS ET 
RE INTERROGE AU HAGARD DE LA LISTE (O/N) 
"sQUESTS# 

2730 CLSHO:IF QUEST#="0" 

HEN GOTO 2990 

2740 IF QUESTS#="N" OR QUEST#="n" THEN CL 

SKHO:LOCATE #0,1,8:PRINT "VOUS SEREZ DONC 
INTERROGE DANS L’ORDRE PHONETIQUE(LE M 

EME QUE CELUI DE LA LISTEDES VERPES).":F 

OR U=zi TO 3SOOO0:NEXT U:GOTO Z:770 

2750 GOTO 720 

2760 REM++++++++ORDRE PHONETIQUE+++++++ 

2770 CLSHO:LOCATE #0,2,7:INPUT #0, "COMRI 

EN DE VERBES À REVISER" ;CDV:CLS#O 

780 RESTORE 330 

#790 FOR nb=zQO TO CDV 

2800 READ a$,b#,c$,t$,t2#$,n% 

810 NB=NEB+1:1IF NPB=CDV+1 THEN LOCATE 5,1 

G:PRINT "RESULTAT :":SOUND 1,426,50,15:S0 

UND 1,319,50,15:SOUND 1,#39,50,15:FOR I= 

1 TO ZSOO0:NEXT I1:GOTO 1700:ELSE FOR asd= 
1 TO 1500:NEXT asd:GOTO :82Z0 

Z8:0 CLS:IF ti$<s"" THEN LOCATE #0,1,4:P 

EN O:PRINT "TRADUIRE "3:PEN Z:PRINT t$3" 
ou ";tz$ ELSE LOCATE #0,1,4:PEN O:PRINT 
"TRADUIRE "3 :PEN Z:PRINT t$ 

2830 LOCATE #0,1,8:PEN 3:PRINT 
IF " 

840 LOCATE 
LÉ “ 

#850 LOCATE #0,1,1Z:PEN J3:PRINT 

PE-PASSE " 

860 PEN Z:LOCATE #0,10,8:PRINT 

#"2:LOCATE #0,18,8:LINE INPUT" "MsVUg:IUUS= 

UPPERS#& (VV) 

#870 PEN Z:LOCATE #0,9,10:PRINT 

—;"#:LOCATE #0,18, 10:LINE INPUT ” 

B$S=UPPERS (PES) 

880 PEN Z:LOCATE #0,16,1%:PRINT 

CATE #0,18,1Z:LINE INPUT " 

ER$(O0%) 

#890 IF VVEz=a$ AND BP$=b# AND OO$=c$ THE 

N =900 ELSE :930 

#900 PEN Z:LOCATE #0,10,17:PRINT #O,"TRE 

S PBIEN'":SOUND 1,319,50, 15: SOUND 1,239,50 
»y15:FOR H=i TO BOO:NEXT H:CLS#O 

2910 FOR 1=1 TO 7O0:NEXT I:LOCATE #0, 10, 
17:PRINT #0,SPACES#(9) 

2920 WINDOW #2,5,20,25,295:PAPER #2Z,0:CLS 

#2: RESULÆRESUL+1: PEN G:LOCATE #Z,1,1:PR 
INT#2, RESUL ;" SUR CDV3:;:FOR Læ=i TO 110 

O:NEXT Ls IF INKEY(=#6)=0 THEN 1700 ELSE 

NEXT nb 

930 FOR I=i TO 5:FOR GG=1 TO ZOO: NEXT G 

G:LOCATE 10,14:PEN G3:PRINT "FAUX":LOCATE 
10,14:FOR LLLL=1 TO SO:NEXT LLLL:PRINT 
» ": SOUND 1,42X8,10,15:FOR LLL=1 TO 10 

O:NEXT LLL:NEXT I:CLS:LOCATE 10,4:PEN 3: 
PRINT "CORRECTION":LOCATE 10,5:PEN Z:PRI 


OR QUEST$="o" T 


"INFINIT 


#0,1,10:PEN 3:PRINT 


"PRETER 


"PARTICI 


";PP#:E 


">": LO 


CE 
3 


Z:LOCATE 2,9:PRINT "INFINITIF-- 


"5300$:00$=UPP: 





";:PEN O:PRINT a$ 
2950 PEN Z:LOCATE 2,1Z:PRINT 
“3: PEN O:PRINT b# 
2960 PEN 2:LOCATE 2,15:PRINT 
PASSE--}; ";:PEN O:PRINT c# 
970 WINDOW #2,5,20,25,25:PAPER #2,0:CLS 
#2 : RESUL=RESUL : PEN 3:LOCATE #2,1,1:PRINT 
#2,RESUL3;" SUR "3; CDV;:GOTO 2800:FOR L=1 
TO 310O0:NEXT L:CLS 
2980 REM++++++++O0RDRE ALEATOIRE+++++++4+ 
2990 RANDOMIZE TIME 
3000 BORDER O:PEN O:PAPER 1:CLS:PLOT 1,3 
80:DRAW 640,380,0:PLOT 1,340:DRAW 640,34 
OU,O:WINDONW #0,1,40,6, 24: CLS#0 
3010 CLS#O:LOCATE #0,1,8:INPUT 
DE VERRES À REVISER ";CDV 
3020 FOR I1J=1 TO CDV:GOSUB 3030:NEXT 1J 
3030 NP=NB+1:1F NB=CDV+1 THEN LOCATE 5,1 
B:PRINT "RESULTAT :":SOUND .1,426,50,15:50 
UND 1,319,50,15:SOUND 1,239,50,15:FOR Ii 
=1 TO 2500:NEXT Ii:GOTO 1700:ELSE 3040 
3040 AAA=INT (RND*% (:34-—1+1) )+1 
3050 PPBB=INT(RND#(34-1+1))+1 
3060 CCC=INT (RND*(34—1+1))+1 
3070 DDD=INT (RND#(34-1+1) )+1 
3080 EEE=AAA+PRR+CCC+DDD 
3090 IF EEE:133 OR EEE“=0 THEN GOTO 
3100 RESTORE 330 
3110 FOR IlI=1 TO EEE 
3120 READ a$,b#,c#,t$,tz$,né 
3130 NEXT III 
3140 CLS:IF tä$<:"" THEN LOCATE #0,1,4:P 
EN O:PRINT "TRADUIRE "3:PEN 2:PRINT t$3;" 
où "3t2$ ELSE LOCATE #0,1,4:PEN O:PRINT 
"TRADUIRE "3;:PEN Z:PRINT t$ 
3150 LOCATE #0,1,8:PEN 3:PRINT 
IF " 
3160 LOCATE #0,1,10:PEN 3:PRINT 
IT " 
3170 LOCATE #0,1,1Z:PEN 3:PRINT 
PE-PASSE " 
3180 PEN 2:LOCATE #0,10,8:PRINT 
:":LOCATE #0,18,8:LINE INPUT" "3 VUS: VV#= 
UPPERS (VUS) 
3190 PEN Z:LOCATE #0,9,10:PRINT 


"PRETERIT-- 


"PARTICIPE- 


"COMBIEN- 


3040 


"INFINIT 


"PRETER 


"PARTICI 





—>":LOCATE #0,18,10:LINE INPUT " 
B$S=UPPERS (BP) 

3200 PEN Z:LOCATE #0,16,12:PRINT "-3":LO 
CATE #0,18,1Z:LINE INPUT " "300#:00$=UPP 
ER$& (O0) 

3210 IF VV#=a$ AND PE$=b$ AND OO$=c$ THE 
N 3220 ELSE 3%*350 

3220 PEN Z:LOCATE #0,10,17:PRINT #O,'"TRE 
S BIEN":SOUND 1,319,50, 15: SOUND 1,239,50 
515:FOR H=1 TO BOU:NEXT H:CLS#O 

3230 FOR 1=1 TO 70O0D:NEXT I:LOCATE #0, 10, 
17:PRINT #0,SPACES#(9) 

3240 WINDOW #2,5,20,Z5,25:PAPER ##,0:CLS 
#2: RESUL=RESUL+1: PEN G:LOCATE #2,1,1:PR 
INT#2,RESUL ;" SUR "3 CDV;:FOR Lei TO 110 
O:NEXT L: IF INKEY(Z6)=0 THEN 1700 ELSE 

3300 

3250 FOR I=1 TO 5:FOR GG=1 TO 


"sPPH:F 


ZOO: NEXT G 


G:LOCATE 10,14:PEN 3G:PRINT "FAUX" :LOCATE 
10,14:FOR LLLL=1i TO SO:NEXT LLLL:PRINT 
F "s SOUND 1,4*#8,10,15:FOR LLL=I TO 10 
O:NEXT LLL:NEXT I:CLS:LOCATE 10,4:PEN 33: 
PRINT 
NT"'= 
3Z60 PEN 


"CORRECTION":LOCATE 10,5:PEN 2:PRI 


LOCATE 2,12%:PRINT 
"s:PEN O:PRINT b# 
3:80 PEN Z:LOCATE 2?,15:PRINT 
PASSE--: "3: :PEN O:PRINT c# 
3290 WINDOW #2,5,20,25,25:PAPER #2Z,0:CLS 
#2: RESUL=RESUL:PEN G:LOCATE #2,1,1:PRINT 
#Z, RESUL3;" SUR "3 CDV3;:FOR Læ=i TO 3100:N 
EXT L:CLS:GOTO 3300 
3300 RETURN 
39310 REMxxkx+#kxxLISTE DES VERPES##4X442444% 
3330 MODE Z:PBORDER 4:INK O,O:INK 1,1*#:PE 
N O:PAPER 1:CLS:PLOT 1,360,0:DRAW 640,36 
0,0:PLOT 1,390,0:DRAW 640,390,0:LOCATE # 
G,{:PRINT "LISTE DES VERPES FORTS":LO 
CATE 4,5:PRINT "INFINITIF":LOCATE 19,5:P 
RINT "PRETERIT'"':LOCATE 31,5:PRINT "PARTI 
CIPE PASSE" 
3340 LOCATE 61,5:PRINT "TRADUCTION" 
3350 PLOT 116,336,0:DRAW 116,17,0:PLOT 1 
15,336,0:DRAW 115,17,0:PLOT 236,336,0:DR 
AW 236,17,0:PLOT 235,336, 0:DRAW 235,17,0 
:PLOT 370,336,0:DRAW 370,17,0:PLOT 369,3 
36,0:DRAW 369,17,0:PLOT 0,315,0:DRAW 640 
:315,0:PLOT 0,:80,0 
3360 DRAW 640,2%80,0:PLOT 0,16,0:DRAW 640 
16,0 
3370 GOSUR 3390: GOSUR 3460:GOSUR 3530 :G0Q 
SUR 3600:GOSUR 3670:GOSUR 3740:GOSUR 381 
O:GOSUP 3880:GOSUR 3940:GOSUR 3990:GOSUPR 
4060 :GOSUR 4170: GOSUR 4190: GOSUR 4260 
3380 GOTO 1700 
3390 LOCATE 7,7:PRINT "a":LOCATE 22,7:PR 
INT "u":LOCATE 39,7:PRINT "a":RESTORE 33 
Q 
3400 FOR iz 1 TO 9 
3410 READ a%,b$,c$,t$,t=$6,n# 
340 GOSUR 4330:NEXT i 
3430 LOCATE 2Z0,Z5:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 
3440 IF INKEY$="" THEN 3440 ELSE GOTO 
50 
3450 LOCATE 20,25:PRINT SPACE#(4Z):FOR i 


"PRETERIT-- 


"PARTICIPE- 


CONTINUER 


34 











=1 TO 9:LOCATE 1,i+8:PRINT SPACE$# (14) :LO 
CATE 16,i+B:PRINT SPACE#(14):LOCATE 31, i 
+B:PRINT SPACE#(16):LOCATE 48, i+8:PRINT 
GPACE#(33):NEXT i : RETURN 
3460 LOCATE 7,7:PRINT "a":LOCATE 22,7:P 
RINT "i(e)":LOCATE 39,7:PRINT "a":RESTOR 
E 420 
3470 FOR Iz1i TO 9 
3480 READ af$,b$,c$,ts,t2$,n$ 
3490 GOSUR 4330:NEXT i 
3500 LOCATE 20,25:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 
3510 IF INKEY$="" THEN 3510 ELSE 3520 
3520 LOCATE 20,25:PRINT SPACE#(42%):FOR i 
=1 TO 9:LOCATE 1,i+8:PRINT SPACE#(14) :LO 
CATE 16,i+B:PRINT SPACE#(14):LOCATE 31,i 
+B:PRINT SPACES(16):LOCATE 48, i+8:PRINT 
SGPACE#(33):NEXT i : RETURN 
3530 LOCATE 7,7:PRINT "e":LOCATE 
RINT “a ":LOCATE 39,7:PRINT 
E 510 
3540 FOR I=1 TO 9 
3550 READ a$,b$,c$,ts$,t2$%,n$ 
3560 GOSUR 4330:NEXT I 
3570 LOCATE 20,25:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 
3580 IF INKEY#="" THEN 3580 ELSE 3590 
3590 LOCATE 20,25:PRINT SPACE#(42):FOR i 
=1 TO 9:LOCATE 1,i+8:PRINT SPACES#(14):LO 
CATE 16,i+B8:PRINT SPACE#(14):LOCATE 31,i 
+B:PRINT SPACE#(16):LOCATE 48,i+8:PRINT 
SPACES(33):NEXT i: RETURN 
3600 RESTORE 600 
3610 FOR I=1 TO 9 
3620 READ a%,b$,c$,ts$,t25,n$ 
3630 GOSUB 433O0:NEXT I 
3640 LOCATE 20,25:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 
3650 IF INKEY#="" THEN 3650 ELSE 3660) 
3660 LOCATE 20,25:PRINT SPACES$(42):FOR i 
=1 TO 9:LOCATE 1,i+8:PRINT SPACES$(14):LO 
CATE 16,i+B8:PRINT SPACE#(14):LOCATE 31, i 
+B:PRINT SPACES(16):LOCATE 48,i+8: PRINT 
SPACE$(33):NEXT i : RETURN 
3670 LOCATE 7,7:PRINT "e":LOCATE 27,7:P 
RINT "a":LOCATE 39,7:PRINT "e":RESTORE 4 
90 
3680 
3690 


CONTINUER 


22,7:P 


"o":RESTOR 


CONTINUER 


CONTINUER 


FOR i=1 TO 10 
READ a$,b$,c$,t$,t2#%,n% 
3700 GOSUR 4330:NEXT I 
3710 LOCATE 20,25:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 
3720 IF INKEY$="" THEN 3720 ELSE 3730 
3730 LOCATE 20,25:PRINT SPACE#(4%):FOR à 
=1 TO 10:LOCATE 1,i+8:PRINT SPACE#(14):L. 
OCATE 16,i+B:PRINT SPACE#(14):LOCATE 31, 
i+B:PRINT SPACES(16):LOCATE 48, i+8:PRINT 
SPACES(33):NEXT i: RETURN 
3740 LOCATE 7,7:PRINT "i":LOCATE 22,7:P 
RINT "a":LOCATE 39,7:PRINT "e":RESTORE 7 
90 
3750 
3760 


CONTINUER 


FOR i=1 TO 3 

READ a$%,b$,c$,t$,tz$,n# 

3770 GOSUR 4330:NEXT I 

3780 LOCATE 20,25:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 

3790 IF INKEY$="" THEN 3790 ELSE 3800 

3800 LOCATE Z20,25:PRINT SPACE#(4%):FOR i 


CONTINUER 





=1 TO 3:LOCATE 1,i+B:PRINT SPACE#(14) :LO 

CATE 16,i+B8:PRINT SPACE#(14):LOCATE 31,i 

+8: PRINT SPACE#(16):LOCATE 48, i+8:PRINT 

GPACES(33):NEXT i: RETURN 

3810 LOCATE 7,7:PRINT "e":LOCATE 22,7:P 

RINT "o":LOCATE 39,7:PRINT "o":RESTORE 8 

20 

3820 FOR i=1 TO 12 

3830 READ a%,b#,c$,t$,t26,n$ 

3840 GOSUR 4330:NEXT I 

3850 LOCATE 20,25:PRINT "POUR 
APPUVEZ SUR UNE TOUCHE"; 

3860 IF INKEY#="" THEN 3860 ELSE 3870 

3870 LOCATE 20,25:PRINT SPACE#(4%):FOR i 

=1 TO 1Z2:LOCATE 1,i+8:PRINT SPACES(14):L. 

OCATE 16,i+B:PRINT SPACES(14):LOCATE 31, 

i+B:PRINT SPACES#(16):LOCATE 48, i+8:PRINT 

"SPACES(33):NEXT i: RETURN 

3880 LOCATE 7,7:PRINT "ei":LOCATE 22,7: 


CONTINUER 


PRINT "i(e)":LOCATE 39,7:PRINT "i(e)'":1RE 
STORE 940 

3890 FOR i=i TO 15:READ a$,b$,c#,t$,tz#, 
n$ 


3900 GOSUB 4330:NEXT I! 
3910 LOCATE 20,25:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 
3920 IF INKEY$="" THEN 3920 ELSE 3930 
3930 LOCATE 20,25:PRINT SPACES(4Z):FOR I 
=1 TO 15:LOCATE 1,1+8:PRINT SPACES(14):L 
OCATE 16,1+B:PRINT SPACE#(14):LOCATE 31, 
1+8:PRINT SPACE#(16):LOCATE 48, 1+8:PRINT 
SPACE#(33):NEXT I:RETURN 
3940 RESTORE 1090:FOR I=1 TO 
b$,c$,t$,t24,n# 
3950 GOSUR 4330:NEXT I 
3960 LOCATE 20,25:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 
3970 IF INKEY#="" THEN 3970 ELSE 3980 
3980 LOCATE 20,25:PRINT SPACES(42):FOR I 
æ1 TO 15:LOCATE 1,1+B:PRINT SPACE#(14):L 


CONTINUER 


15:READ af, 


CONTINUER 


OCATE 16,1+8:PRINT SPACES(14):LOCATE ais 4 





I+GH:PRINT SPACES(16):LOCATE 48,1+8:PRINT 
SPACES(33):NEXT I: RETURN 

3990 RESTORE 1:40 

4000 FOR Izi TO 5 

4010 READ a$,b#$,c#,t#$,t=#$,n$ 

40720 GOSUR 4330:NEXT I 
4030 LOCATE ?0,25:PRINT 


"POUR CONTINUER 


APPUYEZ SUR UNE TOUCHE"; 
4040 IF INKEY#$="" THEN 4040 ELSE 40350 
4050 LOCATE 20,ZS:PRINT SPACES(4Z):FOR I 
æ1 TO S:LOCATE 1,I+B8:PRINT SPACES#&(14):L0 
CATE 16,1I+8:PRINT SPACE#(14):LOCATE 31,7 
+8: PRINT SPACES&(16):LOCATE 48,1I1+8:PRINT 
SPACES(33):NEXT I:RETURN 


4060 LOCATE 7,7:PRINT "i "iLOCATE XE,7:P 

RINT "a "2LOCATE 39,7:PRINT "u "RES 

TÔORE 1:90 

4070 FOR I=1 TO 142:READ a$,b$,c#$,t$,tzs$, 

n$ 

4080 GOSUR 4330:NEXT I 

4090 LOCATE 20,Z5:PRINT "POUR CONTINUER 
APPUYEZ SUR UNE TOUCHE"; 


4100 IF INKEY#="" THEN 4100 ELSE 4110 

4110 LOCATE 20,25:PRINT SPACES(4Z):FOR I 

=1 TO 14:LOCATE 1,I+8:PRINT SPACE#(14):1. 

OCATE 16,I+B8:PRINT SPACES#(14):LOCATE 31, 
I+B:PRINT SPACES(16) :LOCATE 48, I+8:PRINT 
SPACE#(33):NEXT I:RETURN 

4120 LOCATE 7,7:PRINT "i":LOCATE #2,7:PR 





INT "a":LOCATE 39,7:PRINT "Oo":RESTORE 14 
30 

4130 FOR i=1 TO 6 

4140 READ a%,b$,c$,t$,t28,n# 

4150 GOSUR 433O0:NEXT I! 

| 4160 LOCATE 20,25:PRINT "POUR CONTINUER 


APPUVEZ SUR UNE TOUCHE"; 
4170 IF INKEY$#="" THEN 4170 ELSE 4:90 
4180 LOCATE 20,2S5:PRINT SPACES(4Z):FOR i 
=1 TO 6:LOCATE 1,i+8:PRINT SPACES#(14):LO 
CATE 16,i+8:PRINT SPACES(14):LOCATE 31, i 
+8: PRINT SPACE#(16):LOCATE 48, i+8:PRINT 
SPACES#(33):NEXT i: RETURN 
4190 LOCATE 7,7:PRINT "ie":LOCATE Z3,7:P 
RINT "o":LOCATE 39,7:PRINT "Oo":RESTORE 1 
490 


[4200 FOR i=1i TO 9 


4210 READ a$,b$,c#,t$,t2$,n# 

4220 GOSUR 4330:NEXT 1 

| 4230 LOCATE 20,2Z5:PRINT "POUR CONTINUER 
| APPUYEZ SUR UNE TOUCHE"; 

14240 IF INKEY$#="" THEN 440 ELSE 4250 


4250 LOCATE 20,Z5:PRINT SPACE#(42):FOR I 

=i TO 9:LOCATE 1,1+8:PRINT SPACES(14):LO 

CATE 16,1I+8:PRINT SPACES(14):LOCATE 31,1 

+8: PRINT SPACES(16):LOCATE 48, I+8:PRINT 

SPACES(33):NEXT I:RETURN 

4:60 RESTORE 1580 

4270 FOR 1=z1 TO 8 

4280 READ a%,b$,c$,t$,t24$,n# 

4:90 GOSUER 4330:NEXT I 

4300 LOCATE 20,Z5:PRINT "POUR 
APPUYEZ SUR UNE TOUCHE"; 

4310 IF INKEYS="" THEN 4310 ELSE 4370 

4320 LOCATE 20,2Z5:PRINT SPACES(4):FOR I 

=i TO B:LOCATE 1,I+B:PRINT SPACES(14) :LO 

CATE 16,I+8:PRINT SPACE#(14):LOCATE 31,1 

+8:PRINT SPACE#(16):LOCATE 48,1+8:PRINT 

SPACE (33):NEXT I: RETURN 

4330 LOCATE 1,i+8:PRINT a#%;n#:LOCATE 16, 

i+B:PRINT b$:LOCATE 31,i+8:PRINT cH:IF t 

sir" " AND LEN (t$+t#4)<30 THEN LOCATE 4 

G,i+B8:PRINT tés" ou "stf$ ELSE LOCATE 48 

SitB: PRINT t$ 

4340 RETURN 

4370 REMHRHHHNHHENAMM FOOT OON HER EMEEEEE 


CONTINUER 
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: Jean-Luc AULNETTE 


Illustrations 





Claude LE MOULLEC 


ux commandes de votre hélicoptère, vous devez tra- 

verser les lignes ennemies pour aller sauver un blessé 

et le ramener à la base. Vous imaginez que la mission 
ne sera pas de tout repos. Il vous faudra dans un premier temps 
esquiver les attaques des hélicoptères adverses qui viendront 
vous harceler et tenter de vous abattre à l’aide de leurs missi- 
les air-air. Heureusement que votre machine est extrêmement 
maniable. À proximité du but, vous pourrez, à votre tour, faire 
usage de vos missiles HOT pour détruire les chars qui infes- 
tent votre zone de poser. 
Le jeu se joue au clavier ou au joystick à votre convenance, 
et les principales commandes vous sont indiquées dans le 
menu. Maintenant que le briefing est terminé, rejoignez votre 
poste de pilotage et bonne chance ! Au fait, je vous prépare 
une promotion ou une médaille à titre posthume ? 


10 REM Claude Le MOULLEC 

:0 CLS 

30 PORDER 0 

40 INK O,O:INK 1,11:INK Z,6:INK 3,*#4 

50 PAPER O:MODE O:LOCATE 7,9:PEN Z:PRINT 
"GOFTWARE" 

60 FOR i=i TO 80 sINK 1,RND(1)#16+1: PLO 

T 155,385-i:DRAW 175,385-i:PLOT 275,385-- 
i:DRAW 295,385-i:PLOT 345,385-i:DRAW 365 
,385-i:PLOT 425,385-i:DRAW 445,385-i:NEX 

T 

70 FOR i=1i TO 20 :INK 1,RND(1)#16+1: PLO 

T 175,325-i:DRAW 215,325-i:PLOT 2935,4325-— 
i:DRAW 255,325-i:PLOT 385,325-i:DRAW 405 

:325-i:PLOT 450,325-i:DRAW 485, 325-i:NEX 

T 

60 FOR i=0 TO Z0O :INK 1,RND(1)#16+1:PLOT 
445,385-i:DRAW 485,385-i:PLOT 295,385-i 
:DRAW 296+i,385-i:PLOT 345,385-1i:DRAW 34 

4—-i,3895-i:NEXT 

90 FOR i=0 TO ?4 :INK 1, RND(1)#16+1:PLOT 
295+i,365-i:DRAW 345-i,365-i:NEXT 

100 FOR i=1 TO 15 STEP Z:INK 1,RND(1)+16 

+1:PLOT 1,22Z6-i112:DRAW 639,226-i12,1:PLO 

T 320,225:DRAW 1,226-i1Z:PLOT 320,225 :DR 

AW 639,226-i12,1:NEXT i:PLOT 320,%X25:DRA 

W 100,1,1:PLOT 320,225:DRAW 540,1,1:PLOT 
320,22Z5:DRAW 2Z50,1,1:PLOT 3%0, 225 : DRAW 

390,1,1 

110 INK 1,11:PEN 8B:LOCATE 7,16:PRINT'"pre 

sente" 

120 PEN 3:PRINT CHR$S(ZZ)+CHRS (1) :LOCATE 


HAUTE 
11141 


NES 


UR 


11 





3,20: PRINT" RESCUE MISSION" 

130 PEN 15:LOCATE 1,Z4:PRINT "YOUR GAME 
IS LOADING" 

140 RUN "'RESCUE1" 


CLAUDE LE MOULLEC 
ET CPC 


Presentent RESCUE 


100 
120 
130 
140 
150 
160 
170 
180 
190 
=00 
z210 
Z20 
)) 
30 NEXT h 

Z40 LOCATE #1,1,11:PEN #1,1:PRINT #1i,ca$ 
3 ch$:LOCATE #1,8,11:PEN #1,2Z2:PRINT #i,he 
$ 

#50 GOSUR 3170 


GOSUR 
GOSUB 
REM 
MODE 1:PORDER O 

WINDOW #1,1,40,3,16 

WINDOW #2,1,40,17,25 

INK O,0::INK 1,0:INK 2,0:INK 3,0 
PAPER #1,0:CLS #1 

PAPER #Z,2:CLS #Z 

FOR H= 14 TO 16:PEN 1 

LOCATE 1,h:PRINT STRING$(40, CHR$(143 


£490:REM variables 
4690:REM regles 





INK O,14:INK 1,1Z:INK Z,0:INK 3,26 
x=B: 

FOR t=i TO ZOOO:NEXT 

IF foi=1i THEN GOTO 32z0 
ph$=phi$:GOSUR 4950 

ph$=phz$:GOSUR 4950:foi=l 

GOSUR 1760 

EVERY 650,* GOSUR 3110) 

EVERY 950,1 GOSUR 32:80 

SOUND 1,:*00,-:000,1,1 


FOR h=0 TO 3:0 STEP esc 
DI:TAG 

MOVE ci-h,207:PRINT ca$;cb$;cc#; 
GOSUR 1440 

EI:NEXT h:GOSUR 3490 

FOR h=0O TO 320 STEP esc 
DI:TAG 

MOVE ci-h,Z207:PRINT cbh$;cc$;cc#; 
GOSUR 1440 

EI:NEXT h:GOSUR 3490 

FOR h=0 TO 320 STEP esc 
DI:TAG 

MOVE ci-h,=07:PRINT cch;cc#;c1#; 
GOSUR 1440 

EI:NEXT h 

FOR h=O TO 320 STEP esc 
DI:TAG 

MOVE ci-h,#07:PRINT cc;ci$; 
MOVE c£-h,19Z:PRINT cE$ 

GOSUR 1440 

EI:NEXT h:GOSUP 3490 

FOR h=0O TO 320 STEP esc 
DI:TAG 

MOVE ci-h,#07:PRINT ci$; 

MOVE 320-h,192:PRINT cE$; 
MOVE cz-h,177:PRINT c9$%; 
GOSUR 1440 

EI:NEXT h 

FOR h=0 TO 320 STEP esc 
DI:TAG 

MOVE ci-h,19Z:PRINT cE$; 

MOVE. GU-h,177sPRINT cb cS5$ 3 
GOSUR 1440 

EI:NEXT h:GOSUR 3490 

FOR h=0 TO 320 STEP esc 
DI:TAG 

MOVE ci-h,177:PRINT c9#%:c5$%; 
MOVE 640-h,192:PRINT c4$3; 
GOSUR 1440 

EI:NEXT h 

FOR h=0 TO 3:0 STEP esc 
DI:TAG 

MOVE ci-h,177:PRINT c5$; 

MOVE 320-h,19Z2:PRINT c4$;c2$; 
GOSUR 1440 

ET:NEXT h 

FOR h=0 TO 3:0 STEP esc 
DI:TAG 

MOVE ci-h,192:PRINT c4b;c2$;c3$; 
GOSUR 1440 

EI:NEXT h:GOSUR 3490 

FOR h=0 TO 320 STEP esc 


DI:TAG 

MOVE ci-h,192:PRINT c2$;c3$%; 
MOVE 640-h,207:PRINT c4$; 
GOSUR 1440 

EI:NEXT h:GOSUR 3490 

FOR Hh=0 TO 3:0 STEP esc 
DI:TAG 

MOVE ci-h,19Z:PRINT c3$; 
MOVE 320-h,2Z07:PRINT c4$; 
MOVE 640-h,Z222Z:PRINT ci$; 
GOSUR 1440 

EI:NEXT h:GOSUR 3490 

FOR h=0 TO 320 STEP esc 
DI:TAG 

MOVE ci-h,2Z07:PRINT c4$s 
MOVE 320-h,22Z2:PRINT ci$;c3$; 
GOSUR 1440 

EI:NEXT H:GOSUR 3490 

FOR h=0O TO 320 STEP esc 
DI:TAG 

MOVE ci-h,Z22:PRINT ci$;c3$%; 
MOVE 640-h,237:PRINT ci$: 
GOSUR 1440 

EI:NEXT h:GOSUR 3490 

FOR h=z0 TO 320 STEP esc 
DI:TAG 

MOVE ci-h,Z£Z:PRINT c3$; 
MOVE 320-h,237:PRINT c1i$; 
MOVE 640-h,Z2ZZ:PRINT c2$; 
GOSUR 1440 

EI:NEXT h 

FOR h=0 TO 320 STEP esc 
DI:TAG 

MOVE ci-h,237:PRINT ci$; 
MOVE 320-h,222: PRINT cE$3; 
MOVE 640-h,207:PRINT c2$#; 
GOSUR 1440 ‘ 

EI:NEXT hH:GOSUR 34903:temps=REMAIN(Z 


FOR h=0 TO 370 STEP esc 
DI:TAG 
MOVE ci-h,ZXZ:PRINT c2$#3 
MOVE 320-h,207:PRINT c2$;cq$; 
GOSUR 1440 
EI:NEXT h 
FOR h=0 TO 3720 STEP'esc 
DI:TAG 
MOVE ci-h,Z07:PRINT c2$;caq$;cr#; 
GOSUR 1440 
EI:NEXT h:GOSUP 3490 
IF ret=il THEN GOTO 3660 
GOTO 3560 
ssssssssssesess 
REM 
REM deplacement helico 
REM 
REMs=3:2322: 
TAGOFF : PEN : 
LOCATE x,y:PRINT 
a$=INKEYS 
IF a$=f1$ THEN x=x+1:1F x:20 THEN x 


IF a$=f2$ THEN x=x-1:1F x<4 THEN x= 


IF a$=f93$% THEN y=y-1l:1F y£2 THEN y= 


IF a$=f4$ THEN y=y+1 





1560 LOCATE x,y:PRINT hel# 

1570 IF TEST((x#16)+17,(2Z5-y)#16-5)=1 TH 
EN GOTO 1910 

1580 IF hez=i THEN GOTO 
1590 RETURN 

1600 REM 
1610 REM 
160 REM deplacement Zeme helico 
1630 REM 

1640 REM :: se Surars 
1650 LOCATE “h1+1,INT(yh 
1660 IF yéyhi THEN yhi=yh1-0.7 

1670 IF uy>yhi THEN yhi=yhi+0.7 

1680 IF yhi£2 THEN yhi=2z 

1690 LOCATE xhi,INT(Yh1):PRINT h214% 

1700 IF (xhi-x)=9 OR (xhi-x)=10 THEN GOS 
UR 2:10 

1710 IF xhi=x AND INT(yh1i)=y THEN 1910 
1720 IF “hizx+i AND INT(yhi)=y THEN 1910 
1730 “hi=xhi-Zs:1F xhi<O THEN GOTO 1750 
1740 RETURN 

1750 LOCATE 1,INT(yhi):PRINT " 
RETURN 

17640 

1770 

1780 

1790 

1800 : : ss : 
1810 ikH$=INKEYS: i$=UPPERS(ikS 
" THEN 1810 

1820 LOCATE x,13:PRINT " 
1830 FOR hz=i TO 8 

1840 FOR g=1 TO 8:SOUND 1,200,10,1,1,1,5 


1600 ELSE RETURN 


"she=0: 


": PEN 2 


1850 LOCATE %x,13-h:PRINT heï$ 
1860 FOR T=i TO 10:NEXT T 
1870 LOCATE x,13-h:PRINT hei$ 
1880 NEXT g:LOCATE x,13-h:PRINT " 
1890 NEXT h 
1900 LOCATE x 
1910 REM:zs::: 
1920 REM 
1930 REM 
1940 RÈM 
1950 REM::2: 
1960 IF y*il 
1970 
NT " 
1980 MC=1 
1990 CALL &BCA7:SOUND 
000 FOR h= 1 TO 15 
2010 LOCATE x+mc,y-mc:PRINT CHR$(pa) 
2070 LOCATE “+mc,y-1:PRINT CHR$(pa) 

LOCATE »x#,y-mc:PRINT CHR$(pa) 

LOCATE x,y:PRINT CHR$&(pa) 

LOCATE x+mc,y-mcs PRINT CHR$(3Z) 

FOR t= 1 TO GO: NEXT t 

LOCATE x+mc,y-1:PRINT CHR$(32Z) 

LOCATE “,y-mc:PRINT CHR$(32) 

MC=MC+1:PA=PA+1:1F pa=?48 THEN pa=: 


: PA=Z244: BORDER 0,26 
130,0,-1,15,3,,30 


IF y-mc#i THEN GOTO 2130 

FOR t= 1 TO GO:NEXT t 

NEXT h 

FOR h= 1 TO 15:PEN (pa-243) 

LOCATE x,ys:PRINT CHR$(pa) 
MC=MC+1:PA=PA+1:1IF pa=248 THEN paz2 


FOR t=i TO SO:NEXT t:NEXT h 

FOR t= 1 TO ZOO0O:NEXT :PORDER 0: 
GOSUR 5070:ob=0:GOSUE 950 
he=0:temps=REMAIN(:) :tep=REMAIN(1) 
score=0:GOTO 


PEN SGsxth=xhi-tisyhi=INT(yhi) 
LOCATE xth,yhisPRINT CHR#(=324) 
IF xth=x+1 AND yhi=y THEN GOTO 1910 


IF xth=x AND yhi=y THEN GOTO 1910 
IF TI=3 OR TI=6 OR ti=9 THEN GOSUR 


LOCATE xth,yhi:PRINT CHR$(32) 
NEXT ti:xth=0:RETURN 

REM sérssussssnasssstsnnsss ss 
REM 
REM 
REM 


helico 1 pendant les tirs 


PEN Z:LOCATE x,y:PRINT 

PEN Z:LOCATE x,y:PRINT 
a$=INKEYS 

IF a$=f1$ THEN x=x+1:1F x:15 THEN x 
IF a$=f2$ THEN x=x-1:1F x<4 THEN x= 
IF a$=f3$ THEN y=y-1:1F y£Z THEN y= 


IF a$=f4$ THEN y=y+i 

LOCATE X,y:PRINT hel$ 

IF TEST((x#16)+28,(25-y)#16-7)=1 TH 
EN GOTO 1910 
480 RETURN 
“490 REM 
2500 REM 
2510 REM 
Z5:0 REM 
2530 
2540 
57Z315:ENV 3,5, 
2550 score=0:record=0:SYMPROL AFTER 213 
2560 SYMBOL 215,192%,192%,274,230,254,255, 
255,255 
2570 SYMPBOL 214,3,7,55,63,127,127,255,25 
5 
2580 SYMEOL 216,197,255,255,255,2939,295, 
255,255 
2590 SYMBOL 217,0,0,0,0,0,0,0,196 
=600 SYMBOL Z18,7,0,160,64,177,31,0,0:RE 
M heli 11 
610 SYMBOL 219,#55,92,11%,252,198,254,Z 
52,136:REM heli 1: 
2620 SYMBOL 2:0,0,0,64,274,81,31,0,0:REM 
heli 13 
2630 SYMPOL £21,:48,932,1127,257,198,254,7 
52,136:REM heli 14 
=640 SYMEOL 222,255,4,14,63,99,127,63,18 
:REM heli Zz1 
2650 SYMEQOL 223,224,5,2,5,140,248,0,0:RE 





M heli x 

“660 SYMBOL 2%4,0,0,8,0,40,4,2,1:REM mis 
s desc 

“670 SYMBOL 226,32,74,6,1,0,15,4,3:REM t 
ank !i 

“680 SYMBOL 227,0,0,96,240,2:48,255,2,25% 
:REM tank € 

690 SYMEOL 

m 1 


2700 SYMEBOL Se 


S:REM cam 
2710 SYMPOL 
1:8,1:9 
#7#0 SYMEROL 231,0,0,0,0,12:8,120,17Z8,0:RE 
M miss —-: 

2730 SYMPBOL 23#,0,0,0,0,1,67;1,0:REM mis 
S 

2740 SYMEOL 
M tank Z1 
2750 SYMPBOL 234,4,24,96,128,0,240,32,19% 
:REM tank 2% 

2760 SYMEOL 235,0,0,0,32,32,2931,255,66:R 
EM jeep 

#770 SYMBOL 2936,0,255,2939,199,239,255,2:5 
5,6:REM cam 3 

2780 SYMPOL 237,7,11,17,32,78,78,14%,147 
:REM abris 1 

790 SYMPOL 238,255,255,254,254,12#0,1%6, 
b=,63:REM abris * 
800 SYMPOL 2939,:24 
54,255:REM abris 93 
2810 HE1S=CHR#S(Z18)+CHR#&(:19) 

820 HEZS=CHRS (ZOO) +CHRS(EZ1 ) 

6830 HELH=CHRSE CELE) +CHRS (EESTI) 

2840 TAEHS=CHRS(EZ6) +CHRE CEE 7) +CHRIE (GE) 
2850 tTEH=CHRS(EZ 6) +CHRS( EE T7) 

2860 tré=CHR$(ZE)+CHRS (1) 

2870 nr$h=CHRS$ (EE) +CHR#S (0) 

2880 camib=CHR$ (226) +CHRS(E:E:9) 

2890 cami:$=CHRS(ZEB) +CHRS(E36) 

2900 abri$=CHR$#(:37)+CHR$& (238) +CHRS(:39) 
2910 col5$=CHR#(Z14)+CHRS(Z16)+CHR&( 16) 
+CHR#&(Z16)+CHRS(:15) 

#90 col4$=CHRBS(E14)+CHRS(E16)+CHRY(:16) 
+CHR#(215) 

2930 col3$=CHRS(:14)++CHR&(E16)+CHRS(E15 
) 

2940 ci$=col5$+CHR#(E#17)+tEH+CHRS(Z17)+t 
ES+CHRS(=17)+co14$+CHR#(217)+camib+CHRS ( 
32) 

2950 ca$=col5$++CHR$S (IE) +CHRS (ZE) +CHRS (3 
E)+CHRS(GE) +CHRS (IE) +CHRE (IE) +abr ib+t+CHR 
H(Z217)+CHR(EI5)+CHRS(Z17)+camib+CHRS (ZE 
) 

2960 Chh=CHRS(3E) +abrib+CHRS(E17) +CHRS(E 
17)+abri$+CHR$(217)+CHR$(CEIS5)+CHRS(217)+ 
CHR#(E3S5) +CHRS(217)+cOo15H+CHRS(3E) 

2970 cch=CHRS(E#17)+CHRBS(E17)+CHR(E17)+C 
HR$ (214)+CHRS(215)+CHRS (14) +CHRS(E15 ) +C 
HRS(Z14)+CHRS(215)+CHR# (217) +CHRS(E17 )+C 
HR$(Z14)+CHR$S(216)+CHRS(Z16)+CHRS(E16)+C 
HR#S (16) +CHRS (215) +CHRS(E 14) +CHRS(Z15)+C 
HR#(Z17) 

2980 CH=CHRS(E15)+CHRS(E17)+CHR(E17)+t 
EB+CHRS (217) +CHRBCZ14)+CHRE(Z15 )+tEH+cam 
1$+cami$+col3$+tk$+CHRS (3) 

2990 c9H=CHRS(E15)+tE$+co15H+CHRE(217)+C 


230,128,128,128,128,1:6,1278, 


233,0,0,6,15,31,255,64,63:RE 


,240,248,252,62,254,7 


HR$(217)+cami$+tcami$+CHR$S(217)+tES$S+CHRSE( 

Z17)+CHR$(Z14)+CHR$S(143) 

3000 cA3$=CHRS(E17)+tE$+co15H+CHRS(E17)+C 

HR#(2Z217)+cami$+camib+CHR$S (217) +tk6+CHRS$&( 
217)+CHRS(Z14)+CHRS(143) 

3010 c4$=CHRS(Z17)+tEH+TEB+CHRSE (217) +CHR 
H(Z14)+CHRS(215)+CHRS(E17) +camib+cami$+C 

HR#(Z17)+CHRS(Z17)+tES$S+CHRS( 217) +CHRS (ZI 
4)+CHR$(143) 

3070 c5H=CHRS(Z15)+CHRB(E17) +CHRE(EIS ) +C 

HRS(Z17)+tk$+CHRS(E17)+tEB+CHRE (217) +tkE 
+CHRS$S(E17)+CHRS(Z17)+cami$+CHRS (217) +CHR 

H(Z17)+CHRB(E14)+CHRS( 143) 

3030 ca$=CHR$(3E)+CHRS (ZE) +CHRE (IE) +CHRS 
(32) +CHRS (FE) +CHRS(E 14) +CHRS CE15) +CHRE CE 
17)+co13$+CHR$ (32) +CHRS (HE) +CHRS (ZE) + CHR 
(32) +CHRS(3E) +abrib+CHRS (3) 

3040 CRE=CHRSE (3%) +CHRS (ZE) +CHRSE CEIS ) +CHR 
(ZE) +CHRS(E14) +CHRS (215) +CHRE(E 14) +CHRE 
(215)+CHRS(E14)+CHRSCE15 ) +CHRS (ZE) +CHRS( 
ZEN+CHRE (ZE) +CHRS (ZE) +CHRE CIE) + CHR (HE) + 
CHR$SYZ)+CHRS (AE) +CHRE (IE) +CHRE (IX) 

3050 ci=0:c2=64C:esc=l6:pas=0:x=8:y=5:yh 
1=5 

3060 f1H=CHRS(9): FEH=CHRE CB) : FAHE=CHRE (II 
)sf4H=CHRS(10) :FU=0: xvi=sbixvETO 

3070 phi$=" MISSION DE SAUVETAGE SUR 20 
NE PL4:0 
3080 ph2$=" 
FX22 L 
3090 ph3$=" 
E RETOUR " 
3100 RETURN 
3110 

310 

3130 

3140 

3150 

3160 DIshemi :# 
3170 REM 

3180 RENM 

3190 REM 

3:00 REM 

3:10 REM 2: 
3270 PRINT TR#$:LOCATE 8,19:PEN G3:PRINT"H 
BUTEUR FUEL." 
3230 LOCATE 4,*#33: PRINT" 

OPJECTIF":PRINT NR$# 

3240 LOCATE 6,#0:PRINT STRINGS 


DECOLLAGE IMMEDIAT POUR 


BLESSE À BORD -—- PARE POUR L 


parametres # eme helico 


hi=39:yhi=6: Elte 


LONGUEUR 
(11, CHR$( 


3250 LOCATE 24,ZO:PRINT STRINGS (1, CHRS& 
(Z230)):PRINT tr$:LOCATE 35,2ZO0:PRINT CHR# 
(159): PRINT nr$# 

3260 LOCATE 6,:4:PRINT STRING# 
z30)) 

3270 LOCATE 24,Z4:PRINT STRINGS (1%, CHRS# 
(Z230)):PRINT tr#:LOCATE 35,24:PRINT CHR# 
(159): PRINT nr$:RETURN 

3:80 REN 

3290 REM 

3300 REM 

3310 RENM 

3320 REM : : 

3330 DI:TAGOFF:PEN 3:LOCATE ‘35 FU, 20:PRI 
NT CHR#& (230) 

3340 FU=FU+I1:IF fu: 
7Q 


(11, CHR#( 


11 THEN PEN £:GOTO 33 





39350) PRINT tr#:LOCATE 35-FU, #0:PRINT 
$ (159)3PRINT nrbs:PEN 

3360 ET: RETURN 

3370 
3380 
3390 
3400 
3410 ù 
940 LOCATE x,1 

3430 y=y+i 

3440 FOR g=i TO 10 

3450 LOCATE x,Uy:PRINT bel$ 

3460 LOCATE x,ys:PRINT heï% 

3470 IF TEST((x#16)+17,(25-y)#16-5)=1 TH 
EN GOTO 1910 

3480 NEXT g:GOTO 340 

3490 RENM se 
3500 REM 
3510 RENM 
35:00 REM 
3530 REM ::32:5:: 
3540 DI:TAGOFF:PE 
NT CHR (30) 
3550 score=score+100:ob=ob+i: PRINT tr$:L 
OCATE 35-ob,24:PRINT CHR$ (159) :PRINT nr 
H:PEN Z:ETI : RETURN 

3560 RE : 

3570 

3580 

3590 

3600 

3610 FOR h= 1 TO 145 

36) DI:TAG 

3630 MOVE 640-h,207:PRINT tak#;s 
3640 IF H/10=INT(H/10) THEN GOSUR 
3650 EI:NEXT h :TAGOFF 

3660 
3670 
3680 
3690 
3700 


objectif 


Z4: PRIT 


1 44() 


dep heli phase finale 


LOCATE SU R d D 
IF a$=fi$ THEN #=x+1l3IF x*20 THEN 


3740 at=f2$ IN H=x x£4 THEN x= 
4 
3750 
‘3760 
3770 
(a) 


3780 


a$=f3$ THEN yey-il:IF yi* THEN y= 


a$=f4$ THEN y=uy+i 
a$="M" AND ret##1 THEN GOSUR 386 


THEN GOSUR 410 
AND mi:0Q THEN GOSUR 


= ag="A" 
a$=CHR#& (3) 


JOY(O)=16 AND mi:0O THEN GOSUR 39 


3810 IF x£19 AND mi‘*0 THEN GOSU 
BR 4110 
380 1F 
3830 LOCATE 
3840 IF TEST(( 
EN GOTO 1910 
3850 FOR t= 
3860 REM 
3870 REM 
3880 REM 


“7 AND 
Y<11 ND mii:Q THEN GOSUR 4180 


“,U:PEN PRINT bhei$ 
“#16)+17, (25-y)*16-5)=1 TH 


armement des missiles 


3890 REM 
3900 REM :: 
3910 DI:PEN 
M ":LOCATE 1 
N 

390 REM 
3930 REM 
3940 REM 
3950 RENM 
3960 REM zszs2s22s2282: : 

3970 DI:chanz=INT(RND*x4)+8 

3980 LOCATE x,u:PRINT hei$: SOUND 130,0, - 
1,15,2,,90:FOR he +3 TO shot :PEN 3 
3990 LOCATE h,u:PRINT CHR#(:31) 

4000 FOR tz= 1 TO SO:NEXT t 

4010 LOCÂATE h,y:PRINT" ":NEXT h 

4020 vyhot=y:FOR hexhot TO “hot+6 

4030 IF uyhot:13 THEN GOTO 4070 

4040 LOCATE h,yhot:PRINT CHR#&(EE4) 

4050 FOR t= 1 TO SO:NEXT t 
4060 LOCATE h,yhot:PRINT " 
4070 NEXT H 

4080 mi=mi-1:LOCATE 19, 


tir missile 


"syhot=yhot+l 


43 PEN G:PRINT mi 


4090 IF xhot+8=3# OR 
li:mi=0:GOSUR 5170 
4100 ETI:RETURN 

4110 REM 
410 REN 
4130 REM 
4140 REM 
4150 REM 
4160 PEN 


xXhot+8=33 THEN tks:: 


longueur du tir 


4170 HvizbixvizHvi+(x-B):PRINT trh:LOCAT 
E xvi,Z4:PRINT CHR$S(159): PRINT nr$b:PEN 
: RETURN 

4180 REM hauteur de tir 

4190 PEN 3:LOCATE xv2,#0:PRINT CHR$#(2:30) 


4200 xVErÉ I NVERNVE+Us PRINT trHhiLOCATE xv 
2, 20: PRINT CHR$(159):PRINT nrb:PEN Z:RET 
URN 

4210 ER 

4==0 

4:30 REM 
4:40 RENM 
4250 

4260 

4270 FOR g= 


atterrissage 


4:80 LOCATE »x,h:PRINT heli$ 

4290 FOR T=zi TO 10:NEXT t 

4300 LOCATE “,h:PRINT heï#$ 

4310 NEXT gi:LOCATE x,h:2PRINT " 

4320 NEXT h 

4340 FOR te #0 TO 1 STEP -1:LOCATE x,h:P 
RINT heï$:SOUND 1,2:00,10,1,1,1,t:FOR n= 
1 TO 1O0O:NEXT n: 

49340 LOCATE x,h:PRINT hHel$:NEXT 
1 TO 1SO0:NEXT 
49350 IF retz=i 
4360 IF H£1# OR x 


t:FOR t= 


GOTO 460 
14 THEN y=h:GOSUR 1910 


4370 1F tksi 
4380 GOTO 
4390 


#1 THEN GOSUR 4390 





4400 

4410 

4420 

4430 

4440 

4450 SOUND 13 

19 

4460 EHS=MIDS(ttES,h,1):kH=VAL(ES) 
4470 LOCATE 33-h,13-k:PRINT CHR$(46) 
4480 FOR t= 1 TO ZO:NEXT t 


tir du tank 


OR h= 1 TO 


4490 LOCATE 33-h,13-EH: PRINT CHR$(3Z) 
15 


4500 NEXT hs:x= 
4510 REM : 
4520 REM ë 
4530 REM 

4540 REM 

4550 REM 

4560 REM 

4570 CLS 

4580 

4590 

Q 

4800 x$S=ca$iy$=ch$:ca$=ca$t:ch#=crb:coq$=x 
Sicr$=us 

4610 ret=1:GOTO 3% 

4620 IF x£6 OR x*10 THEN y=h:GOSUR 1910) 


1910 


y=13:GOTO 


û 
és 
CR] 1: 
CE] " 
CE .. 
.. CR 


=score+i100 


4630 GOSUR 5070 

4640 CLS:LOCATE 12,12:PEN 1:PRINT"'UNE AU 
TRE ? (O/N)" 

4650 AS=INKEYS : a$=UPPERS(a$):1F 
EN GOTO 4650 
4660 IF a$="N" 
4670 IF a$="0" 
4680 GOTO 4650 
4690 REM 

4700 REM 

4710 REM 

4720 REM 

4730 REM 111: 

4740 MODE 1: BORDER INK O,O:INK 1 
K Z,6:INK 3,76 

4750 CLS:LOCATE 12,1%:PEN 1:PRINT'LES RE 
GLES 7? (O/N)":PEN Z:LOCATE 12,13:PRINT" 


a$="" TH 


THEN END 
THEN RUN 


324!1IN 


4760 AS=INKEYS : a$=UPPERS(a$):IF a$="" TH 
EN GOTO 4760 

4770 IF a$="N" 
4780 IF a$="o" 
4790 GOTO 4760 
4800 CLS:PEN 1:LOCATE Z,*#sPRINT"'VOTRE MI 
SSION":PEN Z:LOCATE #, 3: PRINT"'==ssssmezx 
4810 PEN 3:LOCATE 1,4:PRINT" 
mandes de votre helicoptere 

vez traverser les lignes en- 
pour charger un blesse et le 

a la base." 

4820 PEN 1:LOCATE %Z,9:PRINT"'VOTRE ARMEME 
NT':PEN Z:LOCATE ZX, 10: PRINT'=zsesemzmez 
4830 PEN G:LOCATE 1,11:PRINT" 

issiles Hots utilisables seu- 
+ a l’approche de l'objectif." 
4840 PEN 1:LOCATE Lo COMM 
© ANDES" : PEN Z:LOCATE Z,15:PRIN 


THEN RETURN 
THEN GOTO 4800 


AUX com 
vous de 
nemies 
ramener 


Deux m 
lemen 


4850 PEN 1:LOCATE 7,17:PRINT" À " 
: PRINT" — atterrissage" 
486) PEN 1:LOCATE 7,19:PRINT" 
: PRINT" — decollage" 
4870 PEN 1:LOCATE 7,*#1:PRINT" M " 
PRINT" - armement des missiles" 
4880 PEN 1:LOCATE 7,2#3:PRINT'esp" 
PRINT" — feu en mode clavier" 
4890 PEN 3:LOCATE 7,#5:PRINT" J 
CK :"3:PRINT" C — CURSEUR" 
4900 AS=INKEYS : a$=UPPERS(a$):1F 
EN GOTO 4900 
4910 IF a$="J" 
4920 IF a$="C" 
4930 GOTO 4900 
4940 fF1H=CHRS(E43) : FEH= CHR CEA) » FIH=CHR 
(2:40) :f4H=CHRS (241) : RETURN 
4951) REM 
4960 RENM 
4970 RENM 
4980 REM 
4990: REM: shsstasssessssuss se EE 
5000 FOR H= 1 TO LEN (ph$):PEN © 
5010 phO$=MID$(ph$,h,1) 
5020 LOCATE h,1:PRINT phO$:SOUND 1,20,1, 
% 
5030 FOR t=i TO GOsNEXT t 
5040 NEXT h 
5050 FOR t= 1 
5060 LOCATE 1, 
)): RETURN 
5070 
5080 
5090 
5100 
5110 
5120 

ds 26:CL5S 
5130 LOCATE 15,10:PEN X:2PRINT " 
"s:PEN 1:PRINT score 
5140 IF score:record THEN record=score 
5150 LOCATE 15,14:PEN Z:PRINT "RECORD # 
"3: PEN 1:PRINT record 
5160 FOR h= 1 TO 4000:NEX 
Sd Ot REM: ss sss ss. 
5180 REM 
5190 REM 
5:00 REM 
5z210 REM :: 
52:20 MC=1 : 
"sSOUND 13 
5:30 FOR h= 
5:40 LOCATE 
5:50 LOCÇATE 
526) LOCATE 
5:70 LOCÇATE 
52:80 FOR t= 
5:90 LOCATE 
5300 LOCATE 


D nu 


— JOYSTI 
a$="" TH 


THEN RETURN 
THEN GOTO 4940 


messages 


TO GOOO0:NEXT t 
1: PRINT STRING# (40, CHRS (3 


score/record 


1,Z24:INK #, INK 


SCORE = 


32+mc, 13-mc:PRINT CHR$ (pa) 
324+mc, 12:PRINT CHR$(pa) 
32,13:PRINT CHR#&(pa) 
32,13-mc: PRINT CHR$(pa) 

1 TO SO:NEXT t 

32+mc, 13-Mmc: PRINT CHR$(3Z) 
32+mc, 1Z:PRINT CHR$(3Z) 
5310 LOCATE 32,13:PRINT CHR$(32) 

5320) LOCATE 32,13-mc:PRINT CHR$(3%) 
5330 MC=MC+1:PA=PA+I:IF pa=i48 THEN pa=i 
44 

5340) FOR t= 1 TO 3O:NEXT t 

5350 NEXT h :RETURN Æ 








= 





nn 


NN 


de choisir la tranche horaire (rouge, 
blanc, bleu ou bleu nuit) correspondant 
à l'instant de votre appel. 

Un second menu vous propose de choi- 
sir la destination de votre appel. Il vous 
faudra par conséquent modifier les lignes 
de DATA situées de 3230 à 3290 en 
fonction de votre situation géographique 
en consultant les pages bleues de votre 
annuaire. Les quatre tableaux Zn{x) cor- 
respondent aux tarifs des unités de 
communication en fonction de la zone et 
de la tranche horaire. 

Une pression de la barre d'espace suffit 
alors à lancer le comptage qui, bien 


Jacques DEGOIS 


‘avez-vous pas été souvent surpris de l'ampleur de la facture de vos 
communications téléphoniques ? Les miennes atteignent parfois des pro- 
portions astronomiques, c'est pourquoi j'ai transformé mon AMSTRAD en 
surveillant qui me rappelle à chaque instant l'ampleur des dégâts. Ce programme 
est constitué de deux modules en Basic qui doivent figurer sur la même disquette 
(malheureusement, les utilisateurs de cassettes ne pourront pas utiliser facilement 
le programme qui remet à jour le fichier comptable après chaque communication). 


DOSTEL est le programme principal. Il 
permet de : 

— créer un compte. |l suffit, pour cela de 
donner la date du jour d'ouverture, et le 
programme sauvera sur disque un fichier 
Télécom ; 


— visualiser le compte ; 

— utiliser le compteur téléphonique. 
Cette fonction appelle le module du 
comptage qui devra être sauvé sur la dis- 
quette sous le nom TEL.BAS. 

Le compteur téléphonique vous propose 


entendu, vous affiche le prix de la 
communication en temps réel. Lorsque 
la liaison est terminée, on appuie à nou- 
veau sur la barre d'espace, ce qui aura 
pour effet de sauver le fichier Télécom 
actualisé sur le disque. 


REM MED NOMME MONO DEEE MEME DEEE DE EME DEEE DEEE DEEE DE DEEE DEEE DEEE ÉD DEEE DER DE DEMÉDECHEÉE DE DE DE DO EE REX 
DOSTEL. 
entrees/sorties de 
Jacques DEGOIS 
Version 1.1 / janvier 86 
DEEE DEEE DEEE HE DEEE DEN DE DEEE DEEE HE DE DEEE DE DEEE DE DEEE HN DEEE EDEN DE DEEE EDEN EDEN ONE NE 


REM +* 
REM + 
REM + 
REM * 
REM 


(Gere les TEL ) 


+oitis 


in 
Li 


10 REM #6 RUERREE initialisations XX HEHEUMHMEHEOHMCHOMEHEHEOMEE DE DEEE JE DE DE JE DE DEN 
0) © 

30 MODE ÆZ:WINDOW #3,1,680,19,%X5 

40 BORDER O:INK O,O:INK 1,%5 

30 OPENOUT" dum" : MEMORY HIMEM-1:CLOSEOUT 

60 ? 

100 REM 66 eee ee DEEE EME DE ME DE DEN DE DEN EEE MENT 
110 ? 

120 LOCATE #1,4:PRINT"COMPTEUR DE COMMUNICATIONS TELEPHONIQUES" 

130 PLOT 152,358:DRAW 486, 358:DRAW 486, 330: DRAW 152, 330:DRAW 152,356 

140 LOCATE 10,7:PRINT"Susteme d’exploitation:":PLOT 70,285:DRAW 253,285 
150 LOCATE 18, 10:PRINT"(V)isualisation de la facture en cours." 

160 LOCATE 18,12:PRINT"(C)reation du compte. 

170 LOCATE 18,14:PRINT"'(R)az de la facture en cours. 

180 LOCATE 18, 16: PRINT"(U)tilisation. 

190 LOCATE 18,18:PRINT"(Quiter. 

“00 LOCATE :4,23:PRINT'"'Entrez votre choix suivi de ENTER":PLOT 180,25 :DRAW 
5 
#10 


DÉS SRE SES ES SES SSSR SES S SSL SELS SL SLESL LS LE) 


LOCATE 57,23:INPUT;" ",re$ 





220 IF re$="C" THEN GOSUR Z0%0:CLS#3:GO0TO #00 
#30 IF re+b="R" THEN 30*0:CLS#3:GOT0 Z:00 2 
£ b= VEFRES e$): re$="V" THEN GOSUR 10*0:CLS#3:GOT0 00 
280 FESFUEEEES FEB ST RON"te1. bas” 
#60 IF re$="Qq" THEN CLS:END 
#70 LOCATE 57,23:PRINT STRING#(15," "):GOT0 #10 
274 ? 
1000 REM XKKKXKKHEKEEEEEEÉEEEREE Vistialisation des comptes #XX HE HEXCHEHEMEHEHEE MERE HET HEIN 
1010 ” 
100 CLS#H3:LOCATE 1%,22:PRINT"Vous avez demande la (Visualisation de la facture 
en cours. ":LOCATE 30,24:PRINT'"confirmation (O/N) 7" 
2:GOSUR SOZO:IF flag=0 THEN RETURN 
1030 CLS#3:flag=0:OPENIN"telecom":INPUTH9, fact, drazt: CLOSEIN: OPENIN'"telecom+":1IN 
PUT#9, cumul, da$:CLOSEIN:LOCATE 17, #0:PRINT"'Date orig 
ine facture en cours: "sdraz#:LOCATE 17,21: PRINT"'Montant : "3USING"H##HH. H#"s fact 
3 :PRINT " Francs." 
1040 LOCATE 17,Z23:PRINT"Cumul depuis le ";dats;": "s3USING"H#H#HH. ##" 3 cumul+fact;:PR 
INT " Francs.":LOCATE #9,25:PRINT"'appuyez sur une to 
uche"s:CALL &PPR1B:RETURN 
1050 
2000 REM #66 De DD DE DE DE DE DE DE DE DE DE DE JE DEEE UE Creation  HEEHREHEHEUHEUEHEHE DEN DEHEHEDE NE DE DE DE DE DE DEEE DE 
2010 ? 
2070 CLSH#H3:LOCATE 8,23:PRINT"Vous avez demande la (Creation du compte, confirma 
tion (O/N) ?7":GOSUR SOXO:IF flag=0 THEN RETURN 
‘2030 CLSH3:LOCATE Z4,23:PRINT"'Date de creation (JJ/MM) 7"; 
2040 GOSUR 6D:0 
2050 flag=0:OPENOUT'" telecom": PRINT#9,0, da$ : CLOSEOUT : OPENOUT "telecom+":PRINT#H9,0, 
da$:CLOSEOUT:LOCATE 30, *5:PRINT"Comptes crees.'":FOR 
t=1 TO ZOOO:NEXT:RETURN 
:060 ” 
3000 REM #4 HEURE HE DE DE DE HE DE DE DEEE DE EEE Mar FACTURE CHEMIN HER DEHENE DE DE DE HE DEEE DEEE NEED HE 
3010 
300 CLSHJ:LOCATE 8,293: PRINT"Vous avez demande le (R)az de la facture en cours, 
confirmation (O/N) ?7":GOSUR SOZ0:1F flag=0 THEN RETU 
RN 
3030 CLSH3:LOCATE Z#,23:PRINT"'Date de RAZ facture (JJ/MM) 7"; 
3040 GOSUE 60:0 
3050 flag=0:O0PENIN'"'telecom":INPUT#9,stotal:CLOSEIN:OPENOUT'"telecom":PRINT#H9,0, da 
$ : CLOSEOUT 
‘3060 OPENIN'"'telecom+":INPUT#9, total, da$:CLOSEIN:OPENOUT'"telecom+":total=total+st 
otal:PRINT#9,total, da$:CLOSEOUT:LOCATE 18,25:PRINT"'R 


az effectues. Cumul factures: "S;USING'#HHHH. HH"stotals:PRINT " Frs.'":FOR t=i T 
Q SOOO:NEXT : RETURN 
3070 ? 


5000 REM #66 36 6 EE DE DEEE EE EIIEEX MEPONSEe OQUi/NON HR HHEHEIEIEHEHHEHUHUHHE DE HE DE DE DEN DENON NE 
5010 ? 

200 wW#H=UPPERSÇ(INKEYH)3:IF w$æ"" THEN S0Z0 

3030 IF w$="Q0" THEN flag=i:RETURN 

2040 IF w$="N" THEN flag=0:RETURN 

5050 GOTO 50€0 

6000 REM ##XHRXMRR RER RRRRERRERRRRRRERERX entree date XX HUMEUR HEONEHEOENE RENDENT NE 
6010 ? 

600 LOCATE 51,23:INPUT3s" ", dat: dij=VAL(LEFTS(da,=)):dm=VAL(RIGHTS&(da$,2)):IF dj 
#1 OR dj*31 OR dm£i OR dm> 12 OR LEN(da#)#5 THEN LOCA 

TE S350,Z3:PRINT STRING#(15," "):GOTO 60E0 

6030 RETURN 


REM HR DEEE MED DEEE DÉEEHEHE DE EH DEEE DE DEHEHEHE DH DE DE DE DE DE DE DE DE DE HE DE DE DEN DEEE DE MED DEEE DE DEEE DEDE DEEE DE DE DEEE JE DE DEEE 
REM # COMPTEUR DE COMMUNICATIONS TELEPHONIQUES 

REM +# Jacques DEGOIS 

REM % version 1.1 / janvier 86 


REM HE HEURE DERHDEHE DE DE HE DEN DE DE RENDUE HE DE DE DEN DE DE DE DE HE DE DE HE DE HE DÉDE DE DE HE DEEE DE NE DE DE DEEE DEN DEEE EEE EEE DE DENE JE DE EE 


10 REM #66 EEE UERRREREEE initialisations KHHEMXEHEHEMNHEUEUMEONONE HE DEEE EN 
Z0 





STRING#(15," "):GOTO Z060 

“070 IF re#$="0" THEN CLS#Z:LOCATE 33,1%:PRINT STRING#(10," "):GOTO 610 

2080 CLS#4:total=total+stotal 

“090 LOCATE 20,10:PRINT"Total de vos communications: "3;:PRINT USING"###.##H":stot 
al; :PRINT" Francs" 

“100 LOCATE 20,12:PRINT"Cumul sur facture en cours: "3;3:PRINT USING"#H#H##.#H"stota 
l13; PRINT" Francs" 

“110 OPENOUT'"TELECONM" : PRINTH9, total, da$:CLOSEOUT:’enlever pour k7 

“120 CLS:END 

130 ? 

3000 REM ##H#XHMEEEERÉEREEEEREX data tranches horaires HEURE ÉRE 
3010 ” 

3020 DATA ROUGE 100%, PLANC —30%, BLEU —50%,BLEU-NUIT —-65% 
3030 ? 

3200 REM ##XHHHEREENIÉNRRRREREREEEREE data distances #4 EEE IEEE RUE RRREREX 
10 REM ( a personnaliser en fonction des paces bleues de votre annuaire ) 
32 FE 

3230 DATA "Lafitte" 

3:40 DATA "Tonneins" 

3250 DATA "Marmande" 

3260 DATA "Villeneuve, Agen, Nerac, Condom, La reole, langon, bazas'" 

3270 DATA "Lot, Tarn et Garonne, Gers, Landes, Haute Garonne" 

3280 DATA "Autres departements" 

3:90 DATA "DOM, Etranger" 

3300 ? 

3600 REM ##X#3RRRÉRRRRX data prix des communications He HEIN HEEMEEEUEENEX 

3610 ? 

3620 zn(1)=1:00 

3630 zn(#)=170 

3640 zn(3)=7# 

3650 ONE 

3660 x 

3670 

3680 zn(7)=3.5 

3690 RETURN 

3700 zn(1)=3600 

3710 zn(*)=170 

37#0 zn(3)=10* 

3730 zn(4)=64 

3740 zn(5)=34 

3750 zn(6):=17 

3760 zn(7)=7 

3770 RETURN 

3780 zn(1)=3600 

3790 zn(2)=:40 

3800 zn(3)=144 

3810 zn(4)=90 

380 zn(5)=48 

3830 zn(6)=Z4 

3840 Ezn(7)=10.5 

3850 RETURN 

3860 zn(1)=3600 

3870 zn(*)=340 

3880 z2n(3)=204 

3890 zn(4)=176 

3900 zn(5)=68 

3910 zn(6)=34 


Rs San 


3940 

5000 REM #36 EEE EEE RRRRRRRRRX arret en COUS XX HE HEMHEUE JE DEMEHE DE DEN JE DE NE DE DE JE JE DE JE JEUNE 
5010 ? 

5070 CLSHZ:LOCATE 12,Z4s:PRINT"Vous voulez sortir du programme, confirmation (O/N 
) HA 

5030 reb=UPPERS(INKEY#H):IF re$z"" THEN 5030 

5040 IF re$="N" THEN CLS#Z:LOCATE 19,24: PRINT"Appuyez sur une touche, (DEL: Annu 
lation)":RETURN 


3050 IF re$="o" = 


THEN CLS:END ELSE 5030 





30 ON BREAK GOSUR 50%0 

40 MODE Z:WINDOW #1,1,80,4,16:WINDOW #Z,1,80,16,25:WINDOW #3,1,80,24,25 :WINDOW # 

4,1,80,4,25 

50 PORDER O:INK O,O:INK 1,5 

60 OPENOUT" dum" :MEMORY HIMEM-1 : CLOSEOUT 

70 OPENIN'TELECOM" : INPUT4#9, total, da#$:CLOSEIN:’enlever pour K7 

80 DIM zn(7),zn#$(7),tr#$(4) 

90 ? 

100 REM XX 26x66 NE HE HE DEEE DE DEEE EX affichage tranche horaire “#44 6 XD CEMEOMEEREOMEOHERENEEUEEE 
110 ? 

120 PRINT:PRINT TABR(Z1)"COMPTEUR DE COMMUNICATIONS TELEPHONIQUES" : PRINT : PRINT 
130 PLOT 152,363:DRAW 486, 363: DRAW 486,390: DRAW 152, 390:DRAW 152,363 

140 FOR i=1 TO 4:READ tr#(i):NEXT 

150 FOR i=1i TO 7:READ zn#$(i):NEXT 

160 PRINT TAR(7)3"(1) ROUGE 100% : du Lundi au Vendredi de 8h a 18h 

170 PRINT TAR(=:9)3;"le Samedi de 8h a 14h":PRINT 

180 PRINT TAR(7)3"(«) BLANC —-30% : du Lundi au Vendredi de 18h a Z1h30":PRI 

NT 

190 PRINT TAR(7)3"(3) BLEU —50% : du Lundi au Vendredi de 6h a 8h et de Zi 

h30" 

#00 PRINT TAR(E9)s"le Samedi de 14h à 23h" 

210 PRINT TAP(E9)3;"Dimanches et fetes de 6h a #3h":PRINT 

#20 PRINT TAB(7)3"(4) BLEU-NUIT -85% : Tous les jours de 23h a 6h":PRINT:PRINT 

230 LOCATE 7,16:INPUT'Entrer la tranche horaire (1 /4) "sthhsth=VAL(tTHS)3IF thél 
OR th:4 THEN LOCATE 4%, 16:PRINT STRINGS(15," "):GOT 

0 2:30 

#40 ? 

500 REM KR EHMRMIUURRRRRERREREEEEREE affichage distance HEURE JE HI IE HEIE IE TE HE 

510 ? 

520 CLS#1:PRINT#I 

530 PRINTHI,TAR(7)3;"(1) "szn$(1) 

240 PRINT#I,TAR(7)3;"(Z) "s;zn$(z) 

550 PRINT#I,TAR(7)3;"C3) "szn$(3) 

560 PRINT#I,TAB(7)3;"(4) "szn#t(4) 

570 PRINTHI,TAR(7)3"(5) "s;zng$(sS) 

580 PRINT#I1,TAP(7)3"(6) "s;zn$(6) 

590 PRINT#HI,TAR(7)3"(7) "s;zn$(7) 

600 ? 

610 LOCATE 46,13:PRINT STRINGH(15," "):LOCATE 7,13:INPUT'"'Entrez le Numero de Zon 

e: (O0 pour fin) ",z$:1F 2z$="0" THEN 2060 ELSE z=VAL( 

2$):IF 221 OR z:7 THEN LOCATE 46,13:PRINT STRING#(15," "):GOTO0 610 

60 LOCATE 51,12:PRINT"'Rappel tranche horaire:" 

630 LOCATE 55,14:PRINT tr$(th):PLOT 4X8,171:DRAW 555,171 

640 ? | 

1000 REM XX HORDE MEME DEME DOME DEEE EEE CAL CUILS HEURE EH HE HE DE DE EH DE HE DE DE HEHE HE DEHEDEDE DEEE HE 
1010 ” 

10*0 t=0.77:?7 montant taxe de base 

1030. ON th GOSUR 340, 3700,3780, 3860 

1040 LOCATE 19,%4:PRINT'"Appuyez sur une touche, (DEL: Annulation)" 

1050 LOCATE 7,16:PRINT" Sec.",," Frs." 

1060 al$=INKEY#:1F al$%="" THEN 1060 

1070 al=ASC(al$):IF al=1:7 THEN CLS#Z:GOTO 610 

1080 FOR i=i TO GIiO:NEXT 

1090 

1100 s=s+i 

1110 p=CINT(s/zn(z))+1)xt 

1120 LOCATE 7,18:PRINT USING"#HH##HH"5S:LOCATE £7,18:PRINT USING"'HHH.H#H"3:p 

1130 a$=INKEYS:IF a$="" THEN 1080 

1140 IF ASC(a$)=127 THEN CLSHE£:s=0:p=0:GOTO 610 

1150 ? 

2000 REM 4666 DEEE DE DE DE DE DE DE DE JE DE DEEE EEE resultats HEURE DEEE DE HE DEDE DE DE DE DEDE DE DE EDEN DE JE EH NE 
2010 ? 

Z0*0 dm=s\60:ds=s MOD 60 

“030 LOCATE 37,X#0:PRINT"Duree de la communication: "s;dm;" min."s;sde 

2040 LOCATE 37,22: PRINT"'Prixs "sUSING"'###. ##" 5: ps; s3:PRINT" Francs" 

“050 stotal=stotal+p:p=0:s=0:ERASE zn 

£2060 CLSH#A3:LOCATE 23,2%43: INPUT'"'D’autres communications (O/N) 7 ",re$:re=UPPERS(r 
e$):1F re$::"O0" AND re$<>"N" THEN LOCATE 55, 243:PRINT 









Christian BAUSSARON 


C e jeu fait appel à la mémoire (la vôtre, pas celle de l’or- 


dinateur). L'écran vous présente 52 cartes à jouer avec 
les faces cachées. Vous devez retourner les cartes 
deux par deux en essayant de découvrir deux cartes de même 
couleur et de même valeur. Dans ce cas, votre compte sera 
crédité d’un point. Quatre joueurs peuvent participer et on peut 
même jouer contre l'ordinateur qui dispose de plusieurs niveaux 


de réflexion. 


REM ee EE EEE EEE 
REM % MARIAGE + 
REM % PAUSSARON C * 
REM HE DE DEEE 
REM 
REM HMHHECHRECHMMECDEDEDE DE DE DEHEHEMEHEDE DE DE HEHE DEMO DD DE DEN 
REM INITIALISATION FENETRE COULEUR 
REM HEURE DEEE EME DEDE EE HE DEEE DEEE DEN 
CLEAR 

WINDOW #1,1,80,1,4 

WINDOW #0,1,80,6,25 

WINDOW #2,1,80,5,5 

INK 0,26 

INK 1, 

INK #,0 

INK 3,6 

BORDER 1 

REM eee De ED DE DE DE DEEE DE EDEN HE 

REM DEFINITION CARACTERES 

REM HEURE DEEE EEE 

SYMPOL AFTER 2:04 

REM *kk% trefle *%% 

SYMBOL Z230,56,56,214,254,214,16,56,0 
REM +%x trefle inverse *#Kkx% 

SYMPOL 234,0,56,16,214,254,%#14,56,56 
REM +xxx pique inverse **% 

SYMBOL 233,0,56,16,254,254,124,56,16 


REM *xx% coeur inverse **% 
SYMPOL 232,0,16,56,124,254,254,254,1 


REM xxx carreau inverse **#*% 

SYMPOL 231,0,16,56,174,254,124,56,16 
REM +#kx roi **%+% 

SYMPOL 205,0,0,0,0,0,0,0,%4 

SYMROL 235,%,%,43,3,93,2,2,2# 

SYMBOL 242,126,24,24,60,255,0,0,231 
SYMPOL 249,64,64,192,192,192,64,64,6 


SYMBOL 
SYMPOL 


SYMEQL # 


210,3,1,0,0,0,0,0,0 
217,255,295,255, 126, 60, Z4,0,0 
24,192,1268,0,0,0,0,0,0 


REM +%#%% as pique **% 


SYMBOL 


SYMBOL 
SYMEOL 
SYMEOL 
SYMEOL 


240,0,0,0,0,0,0,1,3 


P08:2, 1.1:1,0;0,0:0 
213,0,24,24,0,189,195,102, 176 
220, 64,128, 128,128,0,0,0,0 
204,126,60,0,0,0,0,0,0 


REM ##% reine *k+% 


SYMBROL 
SYMBOL 
SYMEOL 


SYMBOL 
SYMEOL 
SYMBOL 


Soi lite st 47056 
243,24,24,189,255,255,0,0,231 
250, 128,128,192,192,192,224,9 


207,6,13,13,29,28,16,0,0 
214,0,24,0,60, 129, 66, 60 
221,96,176,176,184,56,0,0 


REM ##x% valet *#*% 


SYMEOL 
SYMBQOL 


SYMBOL 
SYMEOL 


SYMBOL 
SYMBOL 


REM x#+% 


SYMBOL 
SYMPBOL 
SYMBOL 
SYMPOL 
SYMPOL 
SYMEOL 


237,3,19321:19, 740202 
244,255,255,2955,255,129,0,0,%* 


251,192,240,248,240,224,19%,6 


208,Z,1,1,1,0,0,0,0 
:15,0,24,0,60,129,66,60) 
227,64,178,128,176,0,0,0,0 

as carreau *xkx 
238,0,0,0,0,0,0,1,3 
z245,0,0,24,60,126,255,255,255 
252,0,0,0,0,0,0,128,19% 
209,3,1,0,0,0,0,0,0 
216,295,255, 255,126, 60,24,0,0 
223,192,178,0,0,0,0,0,0 


REM ##%+% as coeur **% 


SYMBOL 
SYMEO!L 
SYMEOL 


239,0,0,0,1,3,7,7,7 
z46,0,0,0,195,2931,2#55,255,2535 
253,0,0,0,12%8,192Z,224,224, 224 





710 SYMPBOL %47,0,0,2%4,60,126,255,255,255 | 1350 REM *#K#KXKXREREERMMMERUMEUNUX 

720 SYMBOL 254,0,0,0,0,0,0,1278,197 1360 PAPER #2,1 

730 SYMEOL 211,7,7,7,3,0,0,0,0 1370 CLS #2? 

740 SYMBOL 218,255,255,219,153,60,176,0, 1380 PEN 1 

0 1390 FOR i=1 TO 4 

750 SYMBOL 225,2274,2274,2%4,19%,0,0,0,0 1400 LOCATE 1,ix5 

760 REM *%#% as trefle #%#% 1410 PRINT STRING$(40,CHR#(143))3 
770 SYMPBOL ?41,0,0,0,0,0,0,3,7 1470 NEXT 

780 SYMPOL 248,0,60,126,255,255,126,%4,2 | 1430 MOVE 0,0 

19 1440 DRAWR 0,319,1 

790 SYMBOL 255,0,0,0,0,0,0,192,224 1450 FOR i=50 TO 640 STEP 49 

800 SYMBOL #12,15,15,7,3,0,0,0,0 1460 MOVE i,0 

610 SYMEOL 219,255,255,:19,24,60,12Z6,0,0 1470 DRAWR 0,319,1 

820 SYMBOL 226,240,240,224,192,0,0,0,0 1480 NEXT 

6930 REM #4 HOMME DEOHMOHEHEDE DE NEOHEOHEHEHEHE DEEE UE 1490 PAPER li 

840 REM INITIALISATION TABLEAUX-JOUEURS 1500 PEN * 

8950 REM ee DEEE DE HEDE DE HE DEEE DEEE DEEE DEEE EH 1510 FOR i=1 TO 4 

860 DIM jeu$(5:,5) 1520 FOR j=1 TO 13 

870 DIM mem(4,13) 1530 LOCATE Z+(j-1)#3,i%x5 

880 DIM memc(52) 1540 PRINT USING "##"s;Ci-1)#13+); 
890 DIM p(13) 1550 NEXT 

900 DIM score(4) 1560 NEXT 

910 GOSUR 2850 1570 REM HEURE NE 

920 REM XXE DE DEEE DE DE DEEE 1580 REM DEPUT DU JEU 

930 REM MELANGE JEU DE CARTES 1590 REM 36 X 

940 REM #XXMCHEOHECUEOUMECUEUEOUEOUEOMEONEHE DEEE HE NE 1600 ERASE score 

950 PEN #£,0 1610 DIM score(4) 

760 CLS 16:0 ERASE mem 

970 PRINT #£,TAR(11)"JE MELANGE LES CART | 1630 DIM mem(4,13) 

ES..." 1640 joueur=i 

980 ERASE jeu$ 1650 WHILE nbpaires#76 

990 DIM jeu$(5x,5) 1660 REM #42 EN DE DEEE 

1000 FOR i=0 TO € 1670 REM ECRITURE DES NOMS 

1010 FOR j=*# TO 14 1680 REM Xe DEEE EX 

10*0 RANDOMIZE TIME 1690 FOR i=1i TO nbj 

1030 c=1+INT(RND*x52Z) 1700 PEN #1,0 

1040 IF jeu$(c,1)4%;"" THEN 1030 1710 IF i=joueur THEN PEN #1,3 

1050 GOSUR 4650 1720 LOCATE #1,10*xi-9,1 

1060 GOSUR 4750 1730 PRINT #1, joueur#(i) 

1070 NEXT 1740 LOCATE #1,10*#i-9,3 

1080 NEXT 1750 PRINT #i,score(i) 

1090 j=0 1760 NEXT 

1100 FOR i=i TO SX 1770 REM #36 DENEHODENE DE DE DEEE DE DE DEEE E 
1110 IF jeu$(i,1)45"" THEN 1140 1780 REM CHOIX DES CARTES : JOUEURS 
1120 j=j+1 1790 REM: HO HHEUHEUUEEDEUEDEOMEOHOHEHEDE DEEE DEEE 
1130 plj)=i 1800 IF joueur$(joueur)="CPC 464" THEN G 
1140 NEXT OTO 1900 

1150 i=3 1810 PEN #2,0 

1160 FOR j=£Z TO 14 18*0 CALL 47875 

1170 c=1+INTCRND#13) 1830 INPUT #2,"choisissez vos cartes x,y 
1180 IF jeu$(p(c),1)#>"" THEN 1170 ",ci,cz 

1190 c=p(c) 1840 IF ciii OR ci:52Z THEN 1830 
1200 GOSUE 4650 1850 IF cZ<1 OR c?2>52 THEN 1830 
1210 GOSUR 4750 1860 IF c#=ci THEN 1830 

1220 NERF 1870 IF jeu$(ci,4)=""OR jeu$(cz,4)="" TH 
1:30 ERASE memc EN 1830 

1240 DIM memc{(52) 1880 GOTO z180 

1250 FOR i=1 TO 5* 1890 REM HEURE DEEE DEEE DE DE DE DE DE DE DE JE DEEE NE 
1260 memc(i)=i 1900 REM CHOIX DES CARTES : CPC 464 
1270 NEXT 1910 REM EEE EE DERENE NE DE DENON EC 
1280 nbc=52 1920 FOR i=1 TO 4 STEP à 

1:90 FOR i=334 TO O STEP -1 1930 FOR j=1 TO 13 

1300 MOVE O, i 1940 IF mem(i,j)=0 OR mem(i+1,.j)=0 THEN 
1310 DRAWR 640,0, 3 1960 

1320 NEXT 1950 IF jeu$(mem(i,j),4)4>"" THEN 2160 
1330 REM #4 ee EEE DEEE DEN DE JE DEN 1960 NEXT 

‘1340 REM DESSIN DES 52 CARTES 1970 NEXT 





+ 


1980 IF nbpaires:?5 THEN 060 2610 PRINT #1,,"2 D’autres joueurs" 
1990 FOR i=1 TO S% “60 PRINT #1,,"3 Revoir les regles" 
000 IF jeu$(i,4)="" THEN NEXT 2630 LOCATE #2,1,2 
2020 FOR i=citi TO 5% 2650 INPUT #2,"Votre Choix "si 
2030 IF jeu$(i,4)="" THEN NEXT 660 i=INT(i) 
040 cEzi 2670 IF i£i OR i>3 THEN 2630 
2050 GOTO 180 680 MOVE 0,0 
“060 RANDOMIZE TIME 2690 FOR j=399 TO O0 STEP -1 
2070 ci=1+INT(RND#xnbc) 700 MOVE 0, j 
“080 ci=memc(ci) 2710 DRAWR 639,0,* 
2090 IF jeu$(ci,4)="" THEN 2060 2720 NEXT 
#100 RANDOMIZE TIME 2730 PAPER#2,% 
2110 c“=1+INT(RND#nbc) #740 PAPER 
2120 c=memc(c#) #750 IF i=i THEN GOTO 9:00 
2130 IF jeu$(c2,4)="" THEN Z100 2760 IF izZ THEN GOSUR 3:90:GO0T0 920 
#140 IF c2=ci THEN 2100 2770 RUN 
150 GOTO Z180 2780 REM 6x6 ee EME DE DE DEEE DEEE NE 
#160 ci=mem(i, j) 2790 REM %##% SOUS PROGRAMMES #%*% 
2170 c£=mem(it+i, j) “800 REM XX EHHUHEHEEMEMEDE DE DE DE DE DE EH DE JE NE 
2180 PRINT #?, "Appuyez sur enter pour co | “810 REM 
ntinuer a jouer"; “620 REM +##K#%%% 
REM %#%x% APPEL DESSINS- MEMOIRE *%% 2830 REM REGLES 
GOSUE 3770 “840 REM *xk#k44% 
GOSUR 4140 2850 PAPER #1, 
joueur=joueur-( joueur <=nb)j) “860 CLS #1 
IF joueur>nb;j THEN joueur=i =:870 PEN #1,1 
WEND :880 PAPER #2Z,2:CLS#K2? 
REM ee EEE 2990 PAPER Z:CLS 
REM PARTIE TERMINEE 900 REM *%*#%% DATA PRESENTATION ##%% 
REM EEE DEEE NUE NE 2910 RESTORE 2920 
TAGOFF :920 DATA 132,128,136,128,136,140,19%,1% 
REM HEURE 8,140,140,132,128,140,140,13%,1#8,140,14 
REM CLASSEMENT 0,128,128,140,140,1:8,136,140,140 
REM He EEE 2930 DATA 135,140,139,128,1933,128,198,1# 
CLS 8,133,129,134,128,178,133,1268,1938,128,12% 
CLS #2 8,133,138,17:8,1:8,1:9,1938,128,1%:6 
LOCATE 15,3 2940 DATA 133,128,138,128,135,131,139,1Z 
PRINT "CLASSEMENT" 8,135,131,132,128,1:8,133,128,1938,1931,1% 
LOCATE 1,7 1,133,138,1:8,140,13*,138,1931,1#9 
FOR izi TO nb; 2950 DATA 133,12:8,138,128,133,1#48,1938,1# 
IF score(i):=score(meilleur) THEN m 8,133,128,138,1268,140,141,132,139,128,1% 
eilleur=i 8,133,130,140,140,133,138,140,140 
“390 NEXT 2960 FOR i=0 TO 3 
400 IF meilleur=0 THEN =480 2970 LOCATE #1,8,1i+i 
2410 IF der“*score(meilleur) THEN PEN # 980 FOR  j=i TO 26 
24#0 IF der=0 THEN PEN 3 2990 READ Ek 
2430 der=score(meilleur) 3000 PRINT #1, CHR#(H) 3; 
440 PRINT , joueur$(meilleur),score(meil 3010 NEXT 
leur ) 300 NEXT 
2450 score(meilleur)=-i 3030 EVERY Z0 GOSUR 3680 
2460 meilleur=0 ‘3040 PEN 0 
2470 GOTO 2370 3050 LOCATE 17,1 
Z480 REM He EEE EE EDEN DEEE DEN 3060 PRINT "REGLES" 
:490 REM NOUVELLE PARTIE / FIN 3070 LOCATE 1,3 
2500 REM ee EEEMEEOREHENEDEDENDÉHEUENE 3080 PRINT "S*# cartes vont etre placees 
2510 der=0 face cachee."; 
2520 nbpaires=0 3090 PRINT'Elles sont numerotees de 1 a 
2530 CLS #1 Det 
2540 PEN #1,0 3100 PRINT 
2550 LOCATE #1,6,% 3110 PRINT'"'IL faut que vous trouviez des 
2560 PRINT #1,"Voulez vous rejouer  (O/N paires" 
>: 29 3120 PRINT'de cartes (meme valeur,meme € 
2570 IF INKEY(46)=0 THEN NEW ouleur)." 
2580 IF INKEY(34)€2%:0 THEN #570 3130 PRINT 
=590 CLS#K1 3140 PRINT"'Pour ceci vous devez choisir 
600 PRINT #1,,"1 = Les memes joueurs" # cartes en": 





3150 PRINT'entrant leurs numeros 
34 + enter)" 

3160 PRINT"Vous avez 
ouer a 4." 

3170 PRINT'L’un de ces 4 joueurs peut et 
re votre" 

3180 PRINT'ordinateur. Celui 
able de" 


3190 PRINT" jouer tres bien 
assez mal"; 


3200 PRINT'(force 1)." 

3210 PRINT 

3220 PRINT'Le joueur qui doit jouer est 
indique en“ 

3230 PRINT'"'rouge. " 

3240 LOCATE 1,*0 

3250 PRINT "appuyez sur la barre espace" 
3260 CALL 47872 
3270 IF INKEY$<>" " 
3280 c=REMAIN(O) 
3290 REM XX XXE EEE EUX 

3300 REM ENTREE DES JOUEURS 

3310 REM #46 EEE EEE MEHR 

3320 INK 0,26 

3330 INK 1,9 

3340 CLS #1 

3350 PEN #1,0 

3360 LOCATE #1,5,1 

3370 PRINT #i1,"combien de joueurs 7 (1 a 
4)" 

3380 CALL 47872 

3390 i$=INKEYS 

3400 IF i$<"1"OR i$>"4" 

3410 nbj=VAL(1i$) 

34#0 jh=nb; 

3430 €LS #1 

3440 PEN #2,0 

3450 PRINT #*,'"voulez vous que le CPC 46 


(ex: 2%, 


la possibilite de ; 


ci etant cap 


(force 10) ou 


THEN 3:70 


THEN 3390 


4 joue 7 (O/N)"3 
3460 choixS$=UPPERS(INKEYS) 
3470 IF choix$="O" THEN 3490 


3480 IF choix$="N" THEN 3550 ELSE 3460 

3490 jh=;jh-i 

3500 joueur$(nbj)="CPC 464" 

3510 LOCATE #2,1,7 

3520 INPUT #2,"Quelle force (1 a 10) 
3530 IF f<i OR f:10 THEN 3520 

3540 f=f/10 

3550 FOR i=1 TO jh 

3560 LOCATE #Z,1,% 

3570 PRINT #2,"Joueur No'"i; 

3580 INPUT #7, joueur$(i) 

3590 CALL 4787% 

3600 IF joueur$(i)="" 
464" THEN 3560 

3610 joueur$(i)=LEFT$(joueur$(i),9) 
3670 LOCATE #1,10*xi-9,1 

3630 PRINT #1, joueur$(i) 

3640 NEXT 

3650 LOCATE #1,10%i-9,1 

3660 PRINT #1, joueur#(i) 

3670 RETURN 

3680 REM 666 EEE EEE DEEE DEEE 

3690 REM CHANGEMENT COULEUR 

3700 REM #46 MERDE DEEE DEEE 

3710 READ encre 

3720 IF encre=* THEN RESTORE 3760 

3730 INK 1,encre 


ET 


OR joueur$(i)="CPC 


3740 RETURN 

3750 REM #*%#x% NUMEROS DES COULEURS *x#% 

3760 DATA 18,6,8,* 

3770 REM +X#XXCXCHUEOUEOUOHEOUEOHEHEHE EME DEN DE DEEE DE 

3780 REM DESSIN CARTES RETOURNEES 

3790 REM eee De DH DE HE EEE DE DE DE DE DE JE JE DE 

3800 yi=INT((ci-1)/13) 

3810 xi=ci-y1+13 

3820 yi=319-y1*#80 

3830 xi=(#i-1)+#49 

3840 xi=x1+1 

3850 deci=-(xi/Z<%INT(x1/2#)) 

3860 xi=xitdeci 

3870 cori-(ASC(jeub(ci,1))<229) 

3880 PLOT x“1i,yi,co 

3890 TAG 

3900 PRINT jeu$(ci,1); 

3910 PLOT x1,yi-16,co 

3920 PRINT jeu$(ci,2); 

3930 PLOT x“1,uy1-3%#,co 

3940 PRINT jeu$(ci,3)3; 

3950 PLOT x1,y1-48,co 

3960 PRINT jeu$(ci,4); 

3970 yZ=INT((c#-1)/13) 

3980 xZ=c2-yZzx#13 

3990 y#=319-y2*680 

4000 xZ=(x2-1)+#49 

4010 x£=x2Z+1 

4020 dec2=-(#Z2/Z£SINT(x2Z/2)) 

4030 x2=xZ+dec? 

4040 co=-(ASC(jeut$(cZ,1))=228 OR ASC(je 

u$(cz,1))=227) 

4050 PLOT x2,y2,co 

4060 PRINT jeu$(cZ,1); 

4070 PLOT xZ,y#-16,co 

4080 PRINT jeu$(c£z,2z); 

4090 PLOT x2,y#-3%,co 

4100 PRINT jeu$(cz,43); 

4110 PLOT x2,y=#-48,co 

4120 PRINT jeu$(cz,4); 

4130 IF INKEY(18)=0 OR INKEY(6)=0 THEN R 

ETURN ELSE 4130 l 

4140 REM #X#RX HU x 

4150 REM TEST PAIRE 

4160 REM kkKXXX HUMEUR EX 

4170 IF(ASC(jeub(ci,1))<2#29 AND ASC(jeut 

(ci, 1))>22B8)OR(ASC(jeu$(ci,1)):228 AND À 

SC(jeu$(c2,1))<229) THEN 4280 

4180 IF ASC(MID#S(jeut$(ci,#),2,1))%244 AN 

D ASC(MID$(jeutb(c=,2),2,1))>244 THEN 420 

0 

4190 IF jeut$(ci,2)4rjeu$(cé, 2) 

4:00 REM #*#%% BONNE PAIRE *##% 

4210 jeu$(ci,4)="" 

4:20 jeu$(cz,4)="" 

4230 score( joueur )=scoret( joueur )+1 

4240 nbpaires=nbpaires+i 

4250 encre=i 

4:60 bonpsi 

4270 GOTO 4320 

4:80 REM *x%xx MAUVAISE PAIRE **% 

4290 bonp=0 

4300 encre=:3 

4310 REM +*x% DESSIN CARTES EFFACEES xxx 
LES CACHEES 4% 

4320 FOR i=0 TO 3 

4330 PLOT x1i,yi-i*ié,encre 


THEN 4:80 


4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 

4500 
4510 

4520 
4530 

4540 
4550 

4560 
4570 

4580 
4590 

4600 
46810 

46:0 
48630 
46407) 
4520 





PRINT STRING#S(3,CHR$S(143)); 

NEXT 

MOVE xi-deci,ui 

DRAWR 0,-64,1 

MOVE xi-deci+49,ui 

DRAUR 0,-64,1 

FOR i=0 TO 3 

PLOT xE,y#-i*16,encre 

PRINT STRINGH(3,CHR#(143)); 

NEXT 

MOVE x2-decZ,uz 

DRAWR 0,-64,1 

MOVE xi-deci+49,y2 

DRAWR 0,-64,1 

REM #46 De DEEE DE DE DE DE DE DE DE HE EDEN DE DEEE DEEE HE 
REM MISE EN MEMOIRE PAR LE CPC 464 
REM HE DEEE DE DE DE DE DE HE HENE DE HE DE DEEE DE DE DEN 
i=ci 

RANDOMIZE TIME 

IF RND&f AND bonp=0 THEN 4640 
c=ASC(jeu#$(i,1))-2%#6 
V=ASC(MIDS(jeu$(i,2),2,1)) 

IF v<58 THEN vzv-48 ELSE v=v-23# 
IF v:13 THEN v=13 

IF mem(c,;v)<;0 THEN 4640 
mem(c,v)=i 

FOR j=i TO 5 

IF memc(j)<ri THEN NEXT 
memc(j)=memc(nbc) 

nbc=nbc-i 

IF i=c2 THEN RETURN ELSE i=cZ:GOTO 





honthiy Balamee 
dE Paurrets 





4650 

4880 

4870 

4680 
i) 

4690 IF j=14 THEN j=j+i 

4700 IF j>10 THEN jeu$(c,2)=CHR$(224+.;j)+ 
CHRS(Z231+j)+CHRS(238+;j) ELSE jeu$(c,Z)=" 
"+MIDHS(STRS(j),#,1)+" " 

4710 IF j>10 THEN jeu$(c,3)=CHR$(195+;j)+ 

CHR$&(20Z+j)+CHR$S(209+j) ELSE IF j<10 THE 

N jJeut$(c,g3)=" , " ELSE jeu$(c,3)=" O0 " 

4720 jeu$(c,4)=CHR$(Z231+1)+" "+CHR$S(ZFI+ 
1) 

4730 IF j=i11 THEN jeut(c,1)=LEFTS(jeu$(c 
51), 1)+CHR$S(Z205)+RIGHTS(jeu$(c,1),1): jeu 

$Sc,4)=LEFTS(jeu$(c,4),1)+CHR$S(204)+RIGH 

T$(jeu$(c,4),1) 

4740 RETURN 

4750 REM XXe DE DE DE DEEE DE DEEE NE 

4760 REM DESSIN PENDANT LE MELANGE 

4770 REM XX HUMMER HEODEONEHE DE MEHE DE DEOE DEN NE 

4780 lig=2+INT(RND#14) 

4790 col=2+INT(RND*#36) 

4800 PAPER 0 

4810 co=i-(ASC(jeu$(c,1))<4249) 

48:0 PEN co 

4830 FOR kzi TO 4 

4840 LOCATE col,liqg+k 

4950 PRINT jeu$(c,k) 

4860 NEXT 

4870 RETURN 


REM HU UHMECUEUEOUEONEOMEHEHE DE DE JE DEEE DE DE DE EH EE EE NE 
REM CARACTERES CARTES :S P MELANGE 


REM XX M EOUEOHREOHMOHEOHEME DEEE HEHE DE DE DEEE DE DEEE NE 
jJeu$(c,1)=CHR$S(227+i)+" 


"+CHRS(227+ 


Tél.: (56) 24.05.34 
257, rue Judaïque 
BORDEAUX 








CPC 6128 
disponible. 





Nouveaux tarifs. 
Nous consulter. 
AVIGNON : (90) 22.47.26 
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INFORMATIQUE 
Electronique sur AMSTRAD 


P. BEAUFILS 95 F k 
Electronique sur MSX Communiquez avex ZX81 Jouez avec Hector 
P. BEAUFILS 95F  E. DUTERTRE et D. BONOMO E. DUTERTRE 48 F 


Programmes et interfaces’ Jouez avec Aquarius 


2° édition 90 F. L. GENTY 45 F 
TECHNIQUE Naviguez sur ORIC et ATMOS 
Communiquez avec ORIC-1 et ATMOS E. JACOB et J. PORTELLI 45F 


E. DUTERTRE, D. BONOMO ....... 145 F : 

Propagation des ondes, tome 1 Extensions du ZXB1 
Serge CANIVENC, F8SH Mystères du Laser E. DUTERTRE 48 F 
Un univers à découvrir 165 F Denis BOURQUIN Jouez avec AMSTRAD 
Propagation des ondes, tome 2 Connaître à fond sa machine 148 F  KERLOCH 48 F 
Serge CANIVENC, F8SH Mystères d'Alice ou la pratique du 6803 MEGAHERTZ Hors Série 
Cet ouvrage encore plus important A. BONNEAUD Informatique 30 F 
traite des tous les modes de Une des meilleures critiques de la presse 151 F Transet Terre Luce 
propagation en UHF 253 F Mieux programmer sur ATMOS Préface de D. BAUDRY 20 F 
Technique de la BLU — 2° édition M. ARCHAMBAULT du cat d isiè 
G. RICAUD, FG6CER Tout un programme 110F sr SRI RRr Ta F 
Approche pratique de la BLU 95 F Interfaces pour ORIC-1 et ATMOS 
c : ; Jouez avec M05 

oncevoir un émetteur expérimental M. LEVREL E. DUTERTRE 
P. LOGLISCI Rendre son ORIC encore plus Édedion cie 40 F 
Concevoir soi-même son émetteur ! 69 F performant 59 F PARCS PAR ENRRINEE, 
Synthétiseurs de fréquence Apprenez l'électronique sur ORIC ATMOS 
Se familiariser avec les Mieux voir les phénomènes électroniques 110 F PRESSE 
nouvelles techniques 125 F Communiquez avec AMSTRAD 
interférences radio — des solutions D. BONOMO et E. DUTERTRE = S0F CPC Revue AMSTRAD 
F. MELLET et K. PIERRAT | Le numéro ..................... 19 F 
Des solutions à vos problèmes Mieux programmer sur AMSTRAD (Mensuel) abonnement 1 an ....... 180 F 
de brouillage 35 F M. ARCHAMBAULT 85 F 
Télévisions du monde Plus loin avec le X07 THEORIC Revue ORIC/ATMOS 
P. GODOU Michel GANTIER Le numéro 30 F 
Un catalogue de mires Un titre pour un programme ! 85 F (Mensuel) abonnement 1 an 270 F 


et une longue expérience 

mis à votre disposition par 

l'auteur 110F 
Le radioamateur et la carte QSL 

Préfixes et QSL-managers et 

bureaux dans le monde 

72 pages 15F 
QS0 en radiotéléphonie 

français-anglais 















en cassertes 


Réédition des programmes du livre 
Communiquez avec votre ZXB1 150 F 

























L. SIGRAND 

Un aide-mémoi d : 

QSO plus faciles PU je nn programmes Communiquez avec TR ie 
SE RRES isquette programmes Communiquez avec 
Les cassettes avec livret 195 F 





La réception des satellites météo Cassette programmes Communiquez avec ORIC et ATMOS 190 F 


Loïc Kuhlmann 
Photos, schémas, montages 








Précisez ORIC-1 ou ATMOS à la commande. 


Comment réaliser une station 145 F 
MEGAHERTZ broché n° 3 
(de 14 à 19) 70F 









Adressez vos commandes à : 
SORACOM, La Hale de Pan, 35170 BRUZ 
(Règlement comptant à la commande + port 10 %}. 





ES DISQUETTES DE CRC 


Les numéros 1, 2, 3 et 4 de CPC ne sont plus disponibles. 






BON DE COMMANDE 


Abonné 








Non-abonné 









Ü CPC DISC N° 1-2-3-4.5.6 
































(2 numéros de CPC par disque) ................ 110F 140 F 
CPC CASSETTE N° 1 à 11 ................. 45 F 55 F 
TROP LONG A SAISIR ? Ü CPC anciens numéros LEP S SN TE RER 18F 





CPC numéro: 7 leon rie et a S 


Entourez le numéro du disque, de la cassette ou de la revue choisie(s). 


















Alors, commandez l'ensemble des program- 
mes parus dans le numéro de CPC, sur-cas- 
sette ou sur disquette (dans ce cas, deux 
numéros). 

Les abonnés, bénéficiant d’un tarif particu- 
lier, devront joindre impérativement l'éti- 
quette qu'ils découperont sur leur enveloppe 
de CPC. 

Suite aux nombreuses demandes de lecteurs, 
nous avons prévu un abonnement aux cas- 
settes et aux disquettes de CPC. . 
CLAUSE DE RESTRICTION : le tarif sur dis- | Code Postal ............ Ville .................................... 
quette peut être modifié en cas de change- 
ment de standard ou d'abandon de la dis- 
quette 3°. 

Passez vos commandes directement aux Edi- 
tions SORACOM. Pas de contre-rembourse- 
ment. Les programmes sont diffusés sur sup- 
port magnétique tels qu'ils sont publiés dans 
la revue, sans aucune adaptation. 


ABONNEZ-VOUS 


S'ABONNER, C'EST : 


— recevoir la revue tranquillement à domicile, 

— bénéficier de prix avantageux par souscription comme nous venons de le faire 
par mailing, 

— bénéficier de prix sur les disquettes et maintenant les cassettes, 

— bénéficier de notre aide dans de nombreux domaines. 
















NOUVEAU : Abonnement cassette ou disquette (à partir du numéro à paraître) 


Cassettes (11° numéros) 3.222484 chu hentai dame sata tune 450 F 
Disquettes (6 = 1 pour 2 numéros de CPC) .......................... 600 F 
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Frais de port : Cassettes et disquettes, franco de port. 
Anciens numéros 6,50 F pour 1 ou 2 revues 
9,50 F pour 3 à 5 revues 
13,50 F pour 6 numéros et plus. 







Règlement par chèque ci-joint. 





Alors, n'hésitez pas. Abonnez-vous. 





CPC, La Revue des Utilisateurs d'Amstrad 


ABONNEMENT POUR UN AN — 11 NUMEROS : 180 F 
6 MOIS : 104 F — D'ESSAI 3 MOIS : 55 F 
Tarif avion : + 120 F 







Ci-joint un chèque {libellé à l'ordre des Editions SORACOM) 


PAS D'ABONNEMENT RETROACTIF — DEBUT ABONNEMENT=NUMERO SUIVANT LA RECEPTION DU BULLETIN 


d'un montant de ...... francs. 

NOM ,228 msuseths Bts mu PTÉNOM Lis sans San 2 8 At 

AGFESSE LE ste ie as ee des midi ner A RER 

Code Postal ........ MINS: 285 ae sam amendtes sat 

Date-:huss ass douce Signature ................. 

DRE SP En es fee 42 = 


Ci-joint un chèque libellé à l'ordre de : Éditions SORACOM. 
Retournez le(s) bulletin(s) ou une photocopie à : 
Éditions SORACOM — Service Abonnements — La Haie de Pan — 35170 BRUZ 
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Graphiquez en Turbo Pasca 


sur votre Amstrad 


Pour Amstrad CPC 464, 664 et 6128: un nouveau Turbo Pascal avec extension graphique qui vous transforme facilement 
en champion de dessin — depuis le tracé d'une ligne jusqu'à l'implémentation complète d'une tortue graphique. 
Et pour vos applications graphiques de haut niveau, toutes les routines sont dans Turbo Graphix, en code source et 
utilisables librement. C'est une “boîte à outils” signée Borland, maintenant disponible sur CPC 6128. 


TURBO Pascal option graphique 
cette nouvelle version de Turbo Pascal, 

pour CPC 464, 664, et 6128, est 
destinée à faciliter l'emploi de Turbo Pascal 
et vous présenter les possibilités 
graphiques de votre machine. Elle est 
accessible même aux débutants (à 
condition qu'ils se passionnent un 
minimum pour la programmation, tout de 
même l) et idéale pour l'enseignement et 
la formation: grâce à la tortue, même les 
enfants peuvent dessiner à l'écran. 


Voici quelques-unes de ses possibilités : 


. toutes les fonctions graphiques de base: 
tracé de lignes, cercles, rectangles, 
utilisation de vecteurs, etc. 

. gestion de fenêtres graphiques ou textes 
à l'écran. 

« implémentation complète d'une tortue 
graphique (avec un programme de démo). 
* fonctionne avec un écran monochrome 
ou couleur (dans ce cas, vous pouvez 
définir et changer la couleur de vos figures, 
du fond, des fenêtres, etc.) 





Règlement joint [ 
Carte Bleue (date d'exp.) 7 


Lt dt nf fe | 


Contre-Remboursement 
(France uniquement) + 25 FO] 


Pour tout renseignement et une 
documentation gratuite : 


= BORLAND 
FRACIEL 


Logiciel n'est-ce pas ? 


Nom 


Adresse 





. gestion complète du son pour les 
animations sonores: ton, volume, durée, 
période. 

Plusieurs programmes de démo illustrent 
les capacités du graphisme Turbo. Et si 
vous êtes déjà un inconditionnel de Turbo 
Pascal, ne vous en privez pas: nous vous 
cs d'échanger votre version contre 
Turbo Pascal option graphique en payant 
simplement la différence. (Renvoyez votre 
disquette maître à Borland Fraciel, 
accompagnée du règlement, vous recevrez 
par retour une nouvelle disquette et un 
manuel complémentaire). 


TURBO Graphix 
vec ce nouveau toolbox, AaphMuEe 
out ce qui vous plaît! Turbo Graphix 
(pour Amstrad 6128) est une librairie de 
routines graphiques en code source, 
accompagnée d'un manuel en français qui 
contient de nombreuses explications. Elle 
vous permet de créer des graphiques 
complexes pour vos programmes en 
Turbo Pascal. Vous y trouverez des outils 
tout prêts à inclure dans toutes vos 
applications : 
. animations graphiques rapides 
. système complet de gestion des fenêtres 
graphiques 
. des procédures pour dessiner des 
camemberts, histogrammes, cercles et 
ellipses 
. traçage des courbes, interpolation, lissage 
. résolution de courbes, etc. 
Graphix toolbox nécessite Turbo Pascal (la 
version standard suffit) pour compiler les 
M cn Les Et comme toujours chez 
Borland, tous vos programmes en turbo 
sont librement commercialisables. 























TURBO Pascal 3,0 CP/M 2,2 et 3,0: 


TURBO Pascal 3,0 option graphique : 800 F HT (948,80 TTC) 


©] Échange Turbo Pascal pour Turbo Pascal avec option graphique: 
renvoyez la disquette originale + 
(port gratuit) 


625 FHT (741,25 TTC) 


175 FHT (207,55 TTC) 


Tél. 


TURBO Graphix Toolbox: 675 F HT (800,55 TTC) 
(sur CPC 6128 uniquement) 











TURBO Tutor: 350 FHT (41510 TTC) 














TURBO Database Toolbox: 625 F HT (741.25 TTC) 





78, rue de Turbigo 75003 PARIS - Tél. : 1/42.72.25.19 - Télex : 216120 
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CONCEPTION "SCENARISTES ASSOCIES.” 





LL. Au cours de ce superbe jeu d'aventures graphique entièrement animé, vous revêtirez la tenue d'un scaphandrier pour plonger 
vers la fortune à travers les grands fonds de l'Océan Pacifique. Rien moins que 32000 écrans différents vous attendent, hérissés de 
coraux, d'algues et de plantes, parcourus d'animaux mortels et semés d'objets inattendus, utiles ou dangereux. 

Un jeu tout en nuances, aux décors insolites, qui vous procurera des heures d'émotions avant de trouver enfin votre récompense, par 


1000 m de fond. 
L. 2912. La guerre menace la Terre. Sur toutes les 


colonies spatiales, c'est l'angoisse : si l'ordinateur central 
de contrôle galactique est détruit, toute vie s'éteindra sur 
les planètes non autonomes. Pour Crafton, androïde spé- 
cialiste des missions dangereuses, et XUNK, son fidèle 
podocéphale, il s'agit d'investir le centre de recherche qui 
garde l'ordinateur et d'éviter la catastrophe. 

La richesse du jeu, la qualité graphique et l'exceptionnelle 
rapidité de l'animation en 3D vous feront passer de fabu- 
leux moments. 
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L. Quelque part sur la terre, un nouveau virus frappe 

les populations. Haut responsable de la santé mondiale, 

# vous devez enrayer l'épidémie par des mesures adéquates : 

cordon sanitaire, information, mise au point d'un anti-virus. 

q!\ Dans votre centre de recherche, vous disposez d'un 


tableau de contrôle planétaire qui vous met en relation 
avec les pays atteints, d'un ordinateur pour guider vos 





110 décisions, et d’un microscope pour des séances d’arcades 
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Cassette ou Disquette 


1, bd Hippolyte Marquès 94200 Ivry s/Seine. tél. 45 21 01 49 ERE INFORMATIQUE 
Télex EREINFO 261041F UNE ERE D'AVANCE 


